Home / Forum / Allgemeine Foren / Investitionsrechnung / Excel Interner Zinsfuß in VBA programmieren (Gesamt-IRR)

Excel Interner Zinsfuß in VBA programmieren (Gesamt-IRR)

Login  Registrieren  Suchen  User  Regeln 
Neues Thema in folgender Kategorie
Forum » Allgemeine Foren » Investitionsrechnung
Seiten: 1
Antworten
Excel Interner Zinsfuß in VBA programmieren (Gesamt-IRR)
1.
01.06.2014 18:34:13
Hallo,

ich möchte gerne den Internen Zinsfuß in Excel in VBA programmieren.
Excel verwendet diese Gleichung: http://office.microsoft.com/de-de/excel-help/xintzinsfuss-HP005209341.aspx
Nur ich möchte dass die Gleichung die Renditen nicht annualisiert (1/365) sondern den gesamten
Internen Zinsfuß der gesamten Periode angibt.
Leider kann ich nicht VBA programmieren, könnte mir da jmd helfen?

Grüße,
Popoff
 
 
2.
02.06.2014 12:01:35
=tadXINTZINSFUSS(Werte;Zeitpkte;Schätzwert;Compoundierung)

Compoundierung

1 = Jahr
1/2 = Halbjahres
1/4 = vierteljährlich
1/12 = monatlich
1/52 = wöchentlich
1/365 = täglich
0 = unendlich
2 = zweijährig

-----------------------------------------------------------------

[CODE]
Public Function tadEFFEKTIV(ByVal zins As Double, ByVal compoundierung As Double)
If compoundierung = 0 Then
tadEFFEKTIV = Exp(zins) - 1
Else
tadEFFEKTIV = (1 + zins * compoundierung) ^ (1 / compoundierung) - 1
End If
End Function

Public Function tadABF(ByVal zins As Double, ByVal N As Double, ByVal compoundierung As Double)
tadABF = (1 + tadEFFEKTIV(zins, compoundierung)) ^ (-N)
End Function

Public Function tadABFbar(ByVal zins As Double, ByVal N As Double, ByVal compoundierung As Double)
If (compoundierung = 0) Then
tadABFbar = -N * tadABF(zins, N, compoundierung)
Else
tadABFbar = -N / compoundierung * tadABF(zins, N, compoundierung)
End If
End Function

Public Function tadKAPITALWERT(ByVal zins As Double, ByVal werte As Range, ByVal zeitpkte As Range, ByVal compoundierung As Double) As Double

Dim rCell As Range
Dim i As Long
Dim t As Double
Dim npv As Double
Dim werteArr() As Double
Dim zeitpkteArr() As Long

ReDim werteArr(werte.Count - 1)
ReDim zeitpkteArr(werte.Count - 1)

i = 0
For Each rCell In werte.Cells
werteArr(i) = rCell.Value
i = i + 1
Next rCell

i = 0
For Each rCell In zeitpkte.Cells
zeitpkteArr(i) = rCell.Value
i = i + 1
Next rCell

npv = 0

For i = 0 To werte.Count - 1
t = (zeitpkteArr(i) - zeitpkteArr(0)) / 365
npv = npv + werteArr(i) * tadABF(zins, t, compoundierung)
Next i

tadKAPITALWERT = npv
End Function

Public Function tadKAPITALWERTbar(ByVal zins As Double, ByVal werte As Range, ByVal zeitpkte As Range, ByVal compoundierung As Double) As Double

Dim rCell As Range
Dim i As Long
Dim t As Double
Dim npv As Double
Dim werteArr() As Double
Dim zeitpkteArr() As Long

ReDim werteArr(werte.Count - 1)
ReDim zeitpkteArr(werte.Count - 1)

i = 0
For Each rCell In werte.Cells
werteArr(i) = rCell.Value
i = i + 1
Next rCell

i = 0
For Each rCell In zeitpkte.Cells
zeitpkteArr(i) = rCell.Value
i = i + 1
Next rCell

npv = 0

For i = 0 To werte.Count - 1
t = (zeitpkteArr(i) - zeitpkteArr(0)) / 365
npv = npv + werteArr(i) * tadABFbar(zins, t + compoundierung, compoundierung)
Next i

tadKAPITALWERTbar = npv
End Function

Public Function tadXINTZINSFUSS(ByVal werte As Range, ByVal zeitpkte As Range, ByVal guess As Double, ByVal compoundierung As Double) As Double
Dim f As Double
Dim fbar As Double
Dim x As Double
Dim x0 As Double
Dim i As Integer
Dim found As Integer

found = 0
x0 = guess

Do While (i < 100)

f = tadKAPITALWERT(x0, werte, zeitpkte, compoundierung)
fbar = tadKAPITALWERTbar(x0, werte, zeitpkte, compoundierung)

If (fbar = 0) Then
tadXINTZINSFUSS = (0) ^ (-1)
Else
x = x0 - f / fbar
End If

If (Abs(x - x0) < 0.000001) Then
found = 1
Exit Do
End If

x0 = x
i = i + 1

Loop

If (found = 1) Then
tadXINTZINSFUSS = x
Else
tadXINTZINSFUSS = (-1) ^ (0.5)
End If

End Function
[/CODE]
 
 
3.
02.06.2014 16:30:44
Danke erstmal für deine Antwort.
Ich habe dies hier für meine Berechnung verwendet:
http://www.file-upload.net/download-8994171/IRR.rar.html

Allerdings kommt bei mir das selbe Ergebniss heraus wie mit der Normalen Xintzinsfuss Formel von Excel.
Ich möchte aber gerne wissen wieviel Prozent ich bis am 30.05.2014 gemacht habe. (Also nicht annualisiert 9,94%)
Hierbei müssten ca. 4,14% herauskommen - Habe den Internen Zinsfuß de-annualisiert (Wenn man das so sagen kann :D )
Wie kann ich dies mit dem Makro berechnen?

Grüße,
PopOff
 
 
4.
02.06.2014 17:46:51
Zitat
PopOff schreibt:

Ich möchte aber gerne wissen wieviel Prozent ich bis am 30.05.2014 gemacht habe. (Also nicht annualisiert 9,94%)

Hierbei müssten ca. 4,14% herauskommen - Habe den Internen Zinsfuß de-annualisiert (Wenn man das so sagen kann   )
Wie kann ich dies mit dem Makro berechnen?

Grüße,

PopOff

=tadXINTZINSFUSS( D9:D23; C9:C23; 0,1 ; 152 / 365 ) * 152 / 365
4,03%
 
 
5.
02.06.2014 18:15:22
Aber dafür bräuchte ich das Makro gar nicht.
Wenn ich so mit XINTZINSFUSS rechne komme ich auch auf die 4%:
=XINTZINSFUSS(D9:D23;C9:C23)* 152 / 365

Somit müsste bräuchte man deine Makro funktion gar nicht. :|
 
 
6.
02.06.2014 20:00:42
4,14% ist eine falsche Zins

=XINTZINSFUSS( D9:D23; C9:C23 )* 152 / 365
4,14%

=tadXINTZINSFUSS( D9:D23; C9:C23; 0,10; 1 ) * 152 / 365
4,14%

4,03% ist die richtige Zinssatz

=tadXINTZINSFUSS( D9:D23; C9:C23; 0,10 ; 152 / 365 ) * 152 / 365
4,03%
Bearbeitet: AbrahamA - 03.06.2014 05:21:49
 
 
7.
03.06.2014 07:00:57
Zitat
PopOff schreibt:
Aber dafür bräuchte ich das Makro gar nicht.

Wenn ich so mit XINTZINSFUSS rechne komme ich auch auf die 4%:

=XINTZINSFUSS(D9:D23;C9:C23)* 152 / 365

Somit müsste bräuchte man deine Makro funktion gar nicht.  

XIRR = 9,94%
XIRR = EFFEKTIVE ZINS

EFFEKTIVE ZINS = (1 + NOMINAL ZINS * Compoundierung)^(1/Compoundierung) - 1

XIRR = (1 + NOMINAL ZINS * Compoundierung)^(1/Compoundierung) - 1


(1 + NOMINAL ZINS * Compoundierung)^(1/Compoundierung) - 1 = XIRR
(1 + NOMINAL ZINS * Compoundierung)^(1/Compoundierung) = 1 + XIRR
(1 + NOMINAL ZINS * Compoundierung) = ( 1 + XIRR )^(Compoundierung)
NOMINAL ZINS * Compoundierung = ( 1 + XIRR )^(Compoundierung) - 1

XIRR = 9,94%
Compoundierung = 152/365

NOMINAL ZINS * 152/365 = ( 1 + 9,94% )^(152/365) - 1
NOMINAL ZINS * 152/365 = ( 1,0994 )^(0,41643835616438356164383561643836) - 1
NOMINAL ZINS * 152/365 = 1,0402526376156975413899026795016 - 1
NOMINAL ZINS * 152/365 = 0,0402526376156975413899026795016
NOMINAL ZINS * 152/365 = 4,025%
NOMINAL ZINS * 152/365 = 4,03%
Bearbeitet: AbrahamA - 03.06.2014 07:03:25
 
 
8.
05.06.2014 18:44:44
Danke :D
 
 
9.
04.07.2014 10:00:13
Hallo,

ich hätte noch eine simplere Methode gefunden um den IRR auf den Aktuellen Tag zu Berechnen.
Wenn man am Ende statt dem Aktuellen Datum einfach das Enddatum vom Ende des Jahres eingibt sollte dies ja den Taggenauen IRR ergeben.?
http://www.file-upload.net/download-9164651/IRR.rar.html

Grüße,
Popoff
 
 
10.
19.07.2014 17:25:15
Hat keiner einen Rat ob dies so stimmt? :wink1:
 
 
 
Seiten: 1
Antworten
User, die dieses Thema lesen. (1 Gäste, 0 registrierte User, 0 versteckte User):

News

Unterschiedliche Zinssätze für Aussetzungs- und Nachzahlungszinsen verfassungsrechtlich zweifelhaft Unterschiedliche Zinssätze für Aussetzungs- und Nachzahlungszinsen verfassungsrechtlich zweifelhaft An der unterschiedlichen Höhe des Zinssatzes für Aussetzungszinsen und Nachzahlungszinsen bestehen ernstliche Zweifel. Dies hat der 4. Senat des Finanzgerichts Köln mit seinem heute veröffentlichten Beschluss......

Künstliche Intelligenz (KI) rückt zunehmend in den Fokus der Aufsichtsräte Künstliche Intelligenz (KI) rückt zunehmend in den Fokus der Aufsichtsräte Fast 60 Prozent der Vorstände und Aufsichtsräte haben nach eigener Einschätzung nur wenig oder gar keine Kenntnisse über Künstliche Intelligenz oder Erfahrungen mit KI, immerhin 40 Prozent beschreiben......

Wachstumsbooster vom Kabinett beschlossen: Planungssicherheit und Anreize für private Investitionen Wachstumsbooster vom Kabinett beschlossen: Planungssicherheit und Anreize für private Investitionen Das Bundeskabinett hat in seiner Sitzung am 04.06.25 den Entwurf des Gesetzes für ein steuerliches Investitionssofortprogramm für den Wirtschaftsstandort Deutschland beschlossen. Es sieht wesentliche ......


Aktuelle Stellenangebote

Koordinator:in Infrastruktur & Interne EDV Betreuung (w/m/d) Die Jugendhilfe Am Rohns sucht eine engagierte Fachkraft (m/w/d) für die Unterstützung in der Verwaltung. Sie erwartet  in der Verwaltung ein kleines, dynamisches Team , eine enge Zu......

Finanzkoordination für Drittmittelprojekte (m/w/d) Die Ludwig-Maximilians-Universität München ist eine der führenden Univer­sitäten in Europa mit einer über 500-jährigen Tradition. Sie steht für anspruchs­volle aka­demische Aus­bildung und heraus­rage......

Kreditorenbuchhalter 80-100% (m/w/d) Lust auf Energiewende? Seit über 125 Jahren stehen wir als regionaler Energieversorger mit eigenen Wasserkraftwerken für Nachhaltigkeit, Verantwortung und Innovation. Gemeinsam schaffen wir eine leben......

Referent:in – Finanzen und Controlling (w/m/d) Arbeiten Sie gerne in einem abwechslungsreichen Arbeitsumfeld und suchen eine anspruchsvolle Tätigkeit im direkten Umfeld der Leitung des Geschäftsbereichs Finanzen und Controlling? Die Vielfältigkeit......

Buchhalter / Finanzbuchhalter (m/w/d) Stellen Sie sich vor, Sie sind Teil eines bodenständigen Unternehmens, das seit 1936 mit Herz und Verstand Landwirte, Gartenbauer und Gewerbetreibende begleitet. Wir legen viel Wert darauf, nah am Men......

Kreditorenbuchhalter (m/w/d) Wir von ERICH JAEGER engagieren uns seit über 95 Jahren mit innovativen Entwicklungen für die Automotive-Industrie und beschäftigen uns täglich mit zukunftsweisenden System-Lösungen im Bereich der Ste......

Tipp der Woche

RWP Newsletter :
Buchführung, Bilanzierung und Rechnungswesen bilden den Schwerpunkt der News und Fachbeiträge im Newsletter. Daneben werden ERP- bzw. Buchführungssoftware, Rechnungswesen- Seminare und Tagungen für Buchhalter bzw. Bilanzbuchhalter, Stellenangebote und Literaturtipps vorgestellt.
zur Eintragung >>
Anzeige
Excel-Vorlage: RS Controlling System

Stellenanzeigen

Referent (m/w/d) Konzernabschluss
Diakoneo ist eines der größten Gesundheits- und Sozial­unternehmen in Deutschland. Als international vernetztes diakonisches Unter­nehmen in Süddeutsch­land begleitet Diakoneo Menschen, die in ihren Lebens­situationen verlässliche Unter­stützung suchen. Mit rund 10.000 Mitarbeitenden in über 200 ... Mehr Infos >>

Kreditorenbuchhalter 80-100% (m/w/d)
Lust auf Energiewende? Seit über 125 Jahren stehen wir als regionaler Energieversorger mit eigenen Wasserkraftwerken für Nachhaltigkeit, Verantwortung und Innovation. Gemeinsam schaffen wir eine lebenswerte Zukunft – für Umwelt, Gesellschaft und dich. Warum naturenergie? Mehr Infos >>

Buchhalter:in (m/w/d)
Wir sind seit über 35 Jahren ein in Frankfurt ansässiges Immobilienunternehmen und investieren und verwalten unseren eigenen Immobilienbestand. Wir suchen zum baldigen Eintritt eine:n Buchhalter:in (m/w/d). Sie verfügen über eine abgeschlossene kaufmännische Ausbildung und haben Erfahrung... Mehr Infos >>

Teamleitung Finanzen (m/w/d)
Wir bieten eine interessante und anspruchsvolle Tätigkeit in einem dynamischen, anregenden und unterstützenden internationalen Forschungs­umfeld. Die Vergütung erfolgt nach dem Tarifvertrag für den öffentlichen Dienst (TVöD), je nach persönlicher Qualifikation und Erfahrung bis zur Entgel... Mehr Infos >>

Finanzbuchhalter / Bilanzbuchhalter Buchhaltung & Controlling (m/w/d)
Sie lieben Zahlen? Sie behalten auch bei komplexen Finanzthemen den Überblick und fühlen sich in der Welt von Bilanzen, Buchungen und Jahresabschlüssen zu Hause? Von der sorgfältigen Verbuchung einzelner Geschäftsvorfälle bis hin zur Mitwirkung an strategischen Finanzentscheidungen – Sie beeindru... Mehr Infos >>

Stellvertretende Leitung Finanzbuchhaltung (m/w/d)
Seit Generationen kümmern wir uns um die Erfassung und Abrechnung von Heizenergie, Wasser und Strom in den verschiedensten Immobilienarten. Dank unserer digitalen Messtechniken können wir Kunden und Kundinnen verlässliche Daten über ihren Energieverbrauch zur Verfügung stellen und machen damit Ei... Mehr Infos >>

Risikocontroller (m/w/d) für das Risikomanagement Factoring
Die activ factoring AG mit Sitz in München ist eine Tochtergesellschaft der Raiffeisenlandesbank Oberösterreich AG, Österreichs größte und erfolgreichste Regionalbank. Wir sind einer der führenden Factoring-Dienstleister in Deutschland und auch Ansprechpartner für maßgeschneiderte Lösungen zur Fo... Mehr Infos >>

Sachbearbeiter Buchhaltung (m/w/d) in Voll- oder Teilzeit
Für unsere Buchhaltungsabteilung suchen wir ab sofort einen engagierten Buchhalter (m/w/d), der unser Team verstärkt und einen wichtigen Beitrag zu einer präzisen Finanzbuchführung und einem reibungslosen Rechnungswesen leistet. Du arbeitest sorgfältig, verantwortungsbewusst und eigenstän... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Veranstaltungs-Tipp

290-2.jpg       
Die E-Rechnung ist ab 2025 Pflicht: Tipps zur Umsetzung!
Ab 1.1.25 gelten zahlreiche gesetzliche Neuregelungen zur Umsetzung der E-Rechnung im B2B-Bereich. Bei der Umsetzung gibt es aber häufig noch viele Detail- und Praxisfragen. Im Webinar der Haufe Akademie erhalten Sie einen Überblick über alle wesentlichen Neuerungen und Anwendungshinweise zur neuen E-Rechnungspflicht.  Mehr Infos >>

JOB- Letter

 jobletter.jpg
Sie möchten über neu eingehende Stellenangebote automatisch informiert werden? Dann können Sie unseren kostenfreien Jobletter abonnieren. Mit diesem erhalten Sie alle 14 Tage die aktuellsten Stellenanzeigen und weitere Arbeitsmarkt-News.

Kostenverfolgung Bauprojekte

Kostenverfolgung-Bauprojekte.jpg
Mit diesem einfachen Excel-Tool lässt sich die Kostenverfolgung für Bauprojekte leicht gestalten. Sie pflegen separate Listen für das Budget, Hauptaufträge, Nachträge, erwartete Kosten und Rechnungen und bekommen diese Kosten in einer Übersicht auf einem separaten Blatt nach Vergabeeinheiten und Kostengruppen zusammengefasst.

Jetzt hier für 20,- EUR downloaden >>

Software-Tipps

Fibunet_logo_290px.jpg
FibuNet ist eine sichere, vielfach bewährte und besonders leistungsfähige Software für Finanzbuchhaltung, Rechnungswesen und Controlling im Mittelstand. Mit einer Vielzahl vorentwickelter Automatisierungspotenziale hilft FibuNet konsequent dabei, den Zeitbedarf und die Fehleranfälligkeit in buchhalterischen Prozessen erheblich zu reduzieren. Mehr Informationen >>


Logo-hmd.png
Vom Kassenbuch bis zum Bilanzbericht und Controlling: in hmd.rewe steckt alles drin, was Sie für Ihren Kanzlei- oder Unternehmensalltag benötigen. Finanzbuchhaltung, Anlagenbuchhaltung, Jahresabschluss, Bilanzbericht, Wirtschaftsberatung, E-Bilanz und vieles mehr erhalten Sie von uns in einer komplett durchgängigen und logisch ineinander verzahnten Software zum Rechnungswesen. Mehr Informationen >>

Weitere Rechnungswesen-Software-Lösungen im Marktplatz >>

RS Anlagenverwaltung

Mit diesem Excel-Tool können Sie ihr können Sie ihr Anlagevermögen (Inventar) verwalten. Das Inventar ist nach Bilanzpositionen untergliedert, Abschreibungen und Rest- Buchwerte ihrer Anlagegüter werden automatisch berechnet. Es ist eine AfA- Tabelle integriert, mit der Sie die Nutzungsdauer ihrer Anlagegüter mit Hilfe einer integrierten Suchfunktion schnell ermitteln können.
Mehr Informationen >>

Mitglieder und PR Verwaltung

Abb_2_Dashboard.png
Mit dem Excel-Tool Mitglieder und PR Verwaltung haben Sie die Mitgliederstruktur und Social Media auf einem Blick. Profitieren Sie von Übersichtlichen Grafiken und einfache Eingaben.
Mehr Informationen >>

Elektroauto - Abschreibung & monatliche Belastung

Dieses Excel-Tool berechnet die Steuerliche Abschreibung und Belastungsberechnung des geldwerten Vorteils für das Elektroauto.
Mehr Informationen >>

Weitere über 400 Excel-Vorlagen finden Sie hier >>
Ditz_Nachhaltigkeit_ChatGPT.jpg

eBook: Nachhaltigkeit mit ChatGPT

Nachhaltigkeit und KI sind keine Gegensätze, sondern verstärken sich gegenseitig. Für Controller bietet das Buch eine unschätzbare Hilfestellung. Mit einem klaren Bezug zum Controlling bietet es Ihnen die Werkzeuge, um ESG- und CSRD-Anforderungen erfolgreich zu erfüllen und gleichzeitig die Potenziale von künstlicher Intelligenz (KI) wie ChatGPT auszuschöpfen.

Jetzt hier für 8,99 EUR downloaden >>

Excel TOP-SellerRS Liquiditätsplanung L

PantherMedia_pannawat_B100513902_400x300.jpg
Die RS Liquiditätsplanung L ist ein in Excel erstelltes Werkzeug für die Liquiditätsplanung von Kleinunternehmen sowie Freiberuflern. Die Planung erfolgt auf Basis von veränderbaren Einnahmen- und Ausgabepositionen. Detailplanungen können auf extra Tabellenblättern für z.B. einzelne Projekte oder Produkte vorgenommen werden. 
Mehr Informationen >>

Rollierende Liquiditätsplanung auf Wochenbasis

Dieses Excel-Tool bietet Ihnen die Grundlage für ein Frühwarnsystem. Der erstellte Liquiditätsplan warnt Sie vor bevorstehenden Zahlungsengpässen, so dass Sie frühzeitig individuelle Maßnahmen zur Liquiditätssicherung einleiten können. Gerade in Krisensituationen ist eine kurzfristige Aktualisierung und damit schnelle Handlungsfähigkeit überlebenswichtig. Mehr Informationen >>

Strategie-Toolbox mit verschiedenen Excel-Vorlagen

Die Strategie-Toolbox enthält 10 nützliche Excel Vorlagen, die sich erfolgreich in der Strategie bewährt haben. Alle Tools sind sofort einsatzbereit und sind ohne Blattschutz. Damit können die Vorlagen individuell angepasst werden.
Ideal für Mitarbeiter aus dem strategischen Management. Mehr Informationen>>

Weitere über 400 Excel-Vorlagen finden Sie hier >>

Software-Tipp

Liquiditätsplanung_Fimovi.jpgRollierende Liquiditätsplanung auf Wochenbasis. Mit der Excel-Vorlage „Liquiditätstool“ erstellen Sie schnell und einfach ein Bild ihrer operativen Liquiditätslage für die nächsten (bis zu 52) Wochen. Mehr Infos und Download >>

Excel- Tools für Buchhalter

unsere TOP- TOOLS: 

Button__subThema.PNGRS-Anlagenverwaltung
Button__subThema.PNGRS-Liquiditätsplanung L
Button__subThema.PNGRS-Bilanzanalyse
Button__subThema.PNGRS-Plan
Button__subThema.PNGRS-BSC
Button__subThema.PNGRS-Darlehensverwaltung
Button__subThema.PNGRS-Investitionsrechner

TOP ANGEBOTE

Button__subThema.PNG RS Rückstellungsrechner XL:
Die optimale Unterstützung bei Ihren Jahresabschlussarbeiten
Button__subThema.PNG RS Einkaufs-Verwaltung:
Erstellung und Verwaltung von Aufträgen und Bestellungen
Button__subThema.PNG RS Kosten-Leistungs-Rechnung:

Erstellen Sie eine umfassende Kosten-Leistungsrechnung

Rückstellungen leicht verwalten

Mit der RS- Rückstellungs-Verwaltung können Sie Rückstellungen nicht nur leicht errechnen sondern auch übersichtlich verwalten.
  • Gewerbesteuerrückstellung
  • Urlaubsrückstellungen
  • Rückstellungen für Geschäftsunterlagen
  • Rückstellung für Tantiemen
  • Sonstige Rückstellungen
Automatische Zusammenfassung aller wichtigsten Eckdaten der Rückstellungen in einer Jahres-Übersicht. mehr Informationen >>

Excel-Tool-Beratung und Erstellung

Kein passendes Excel-Tool dabei?

Balken.jpgGern erstellen wir Ihnen Ihr Excel- Tool nach Ihren Wünschen und Vorgaben. Bitte lassen Sie sich ein Angebot von uns erstellen.