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
Anzeige
kennzahlen-guide_titel_250px.jpg
Kennzahlen-Guide für Controller - Über 200 Kennzahlen mit Erläuterung und Beispielrechnung aus den Bereichen Finanzen, Personal, Logistik, Produktion, Einkauf, Vertrieb, eCommerce und IT.

Preis: E-Book 12,90 EUR mehr >>

Stellenanzeigen

Controller Planung und Prognose (m/w/d)
Als dynamisch wachsendes Pharma­unter­nehmen setzen wir uns für das wert­vollste Gut der Menschen ein – die Gesundheit. Weltweit arbeiten wir mit mehr als 2.000 Mit­arbeitenden für das vereinte Ziel, die Lebens­qualität von Patienten (m/w/d) zu ver­bessern. Wir sind spezialisiert auf die ... Mehr Infos >>

Controller (m/w/d)
Deine Zukunft – perfekt verpackt. Smurfit Westrock ist der weltweit wegweisende Anbieter von papier­basierten Ver­pack­ungs­lösungen. Mit mehr als 100.000 Mitarbeitenden, 500 Ver­arbei­tungs­betrieben und 63 Fabriken in 40 Ländern bieten wir unseren Kunden eine breite Palette an un­verwechsel­bar... Mehr Infos >>

Sachbearbeitung im Rechnungswesen
Wir, die Eisenbahner-Baugenossenschaft München-Hauptbahnhof eG, wurden 1908 gegründet. Heute bewirtschaften wir über 2.566 Wohneinheiten, 41 Gewerbeeinheiten sowie über 1.000 Garagen und Stellplätze. Wir sind stolz auf unsere lange Tradition als erfolgreiche Genossenschaft und realisieren heute a... Mehr Infos >>

Teamleitung Finanzbuchhaltung (m/w/d)
Seit 1930 steht die Ulmer Wohnungs- und Siedlungs-Gesellschaft mbH für bezahlbares Wohnen in Ulm. In den mehr als 95 Jahren haben wir uns zum größten lokalen Mietwohnungsanbieter entwickelt – mit über 7.500 Wohnungen geben wir zahlreichen Ulmerinnen und Ulmern aus unterschiedlichen Gesellschaftss... Mehr Infos >>

Senior Bilanzbuchhalter / Konzernbuchhalter (m/w/d)
PlanET Biogastechnik GmbH plant, entwickelt und konstruiert Biogasanlagen für Landwirtschaft sowie Industrie im nationalen wie auch internationalen Markt. Auf unserem erfolgreichen Weg brauchen wir dich als Verstärkung. Bringe deine Ideen bei uns ein und verwirkliche dich bei uns. In unserem fami... Mehr Infos >>

Controller Konzernkostenrechnung und Reporting (m/w/d)
Als dynamisch wachsendes Pharma­unter­nehmen setzen wir uns für das wert­vollste Gut der Menschen ein – die Gesundheit. Weltweit arbeiten wir mit mehr als 2.000 Mit­arbeitenden für das vereinte Ziel, die Lebens­qualität von Patienten (m/w/d) zu ver­bessern. Wir sind spezialisiert auf die ... Mehr Infos >>

Finanzbuchhalter / Bilanzbuchhalter (m/w/d)
Wir sind eine seit über 20 Jahren etablierte Full-Service-Marketing-Agentur mit klarer unternehmerischer Ausrichtung. Wir wachsen, entwickeln uns weiter und arbeiten leistungsorientiert. Bei uns zählt Einsatz. Verantwortung. Ergebnisorientierung. Wir suchen keine „Verwaltung“, sondern jemanden, d... Mehr Infos >>

Mitarbeiter (m/w/d) Finanzbuchhaltung (m/w/d)
Wir von Hedin Automotive haben es uns zum Ziel gemacht, fester Teil der Mobilität von morgen zu werden. Die Herausforderungen dabei meistern wir tagtäglich im Team. Und zwar als einer von Deutschlands größten Handelspartnern von Mercedes-Benz, Daimler Truck und Hyundai mit über 30 Standorten. Uns... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Veranstaltungs-Tipp

290-10.jpg          
Neues Seminar: Rechnungsprüfung, Buchung & Reports mit KI
Automatisierte Workflows für die Buchhaltung selbst erstellen: Einlesen/Prüfen von Rechnungen, Buchungsvorschläge oder aktuelle Rechts-Updates – Erfahre, wie du Datenquellen wie E-Mails, Programmierschnittstellen und Texterkennungs-Dienste verknüpfst, KI-gestützte Validierungen einbaust und revisionssicher dokumentierst.  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.

Excel-Tool Bilanz- und Erfolgsanalyse

Bilanzanalyse-Tool 290px.jpg
Aus Bilanz und G+V werden alle gängigen Bilanz- und Erfolgskennzahlen errechnet und versucht, die Bewertung der Zahlen mit den Ampelfarben grün, gelb und rot deutlich zu machen. Die Ableitung bzw. Berechnung der Kennzahlen wird ausführlich dargestellt.

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

Rollierende Liquiditätsplanung auf Wochenbasis

03_Liquiditaetstool.png
Dieses Excel-Tools 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 >>

Excel-Finanzplan-Tool PRO für Kapitalgesellschaften

Dieses Excel-Tool ist ein umfangreiches - auch von Nicht-Betriebswirten schnell nutzbares - integriertes Planungstool, welches den Nutzer Schritt-für-Schritt durch alle Einzelplanungen (Absatz- und Umsatz-, Kosten-, Personal-, Investitionsplanung etc.) führt und daraus automatisch Plan-Liquidität (Cashflow), Plan-Bilanz und Plan-GuV-Übersichten für einen Zeitraum von bis zu 5 Jahren erstellt.
Mehr Informationen >>

Vorlage - Formular für Investitionsplanung, Investitionsantrag

PantherMedia_Prakasit-Khuansuwan_400x299.jpg
Dieses Excel-Tool bietet Ihnen Muster-Formulare für die Steuerung von Investitionen/ Anlagenbeschaffungen in einem Unternehmen. Es sind es sind Vorlagen zu Investitionsplanung und Investitionsantrag enthalten.
Mehr Informationen >>

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

Skript Kostenrechnung

Umfassendes Skript für Studenten, Auszubildende und angehende Bilanzbuchhalter zu allen prüfungsrelevanten Themen aus der Kosten- und Leistungsrechnung als ebook im pdf-Format. Auf 163 Seiten wird alles zum Thema Kostenrechnung ausführlich und verständlich sowie mit vielen Abbildungen und Beispielen erläutert.

Themen:

- Kostentheorie
- Aufgaben und Systeme der Kostenrechnung
- Vollkostenrechnung
- Teilkostenrechnung (Deckungsbeitragsrechnung)
- Plankostenrechnung
- Kurzfristige Erfolgsrechnung
- Prozesskostenrechnung
- Kalkulation im Handel

Zusätzlich zum Skript erhalten Sie umfangreiche Klausuraufgaben und Übungsaufgaben mit Lösungen! Preis 9,90 EUR Hier bestellen >>