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

News

Gehaltsreport: 80.000 Euro Jahreseinkommen reichen für die Top 10 % Gehaltsreport: 80.000 Euro Jahreseinkommen reichen für die Top 10 % Das Gehalt ist bei der Jobentscheidung oftmals der wichtigste Faktor. Mit Daten des Gehaltsreports 2025 hat The Stepstone Group jetzt analysiert, ab welchem Einkommen Vollzeitbeschäftigte in Deutschland......

„AI Office of the CFO“: Payhawk automatisiert Finanzprozesse mit KI „AI Office of the CFO“: Payhawk automatisiert Finanzprozesse mit KI Payhawk hat heute die Einführung von „AI Office of the CFO“ bekannt gegeben – einer Suite spezialisierter KI-Agenten, welche die Produktivität von Finanzteams drastisch steigern und zeitgleich eine vollständige......

Sind Unternehmen reif für Generative AI? - Gratis-Online-Bewertung des Status Quo Sind Unternehmen reif für Generative AI? - Gratis-Online-Bewertung des Status Quo Generative AI ja, aber wie? Bei vielen Unternehmen scheitert die Nutzung an einem Mangel an Know-how und Transparenz. Mit einem kostenfreien Benchmarking-Tool von SAS, einem der weltweit führenden Anbieter......


Aktuelle Stellenangebote

Leitung (w/m/d) für den Fachbereich Controlling Der Bau- und Liegenschaftsbetrieb NRW ist Eigentümer, Vermieter und Betreiber fast aller Immobilien des Landes Nordrhein-Westfalen. Mit rund 4.000 Gebäuden, einer Mietfläche von etwa 10,3 Millionen Qu......

Leitung Business Controlling (m/w/d) Zu den Hekatron Unternehmen gehören inzwischen über 1.000 engagierte und ambitionierte Mitarbeitende. Ihr gemeinsames Ziel: Menschen die Sicherheit zu geben, dass sie im Brandfall geschützt sind. Dies......

Junior-Controller (m/w/d) Wir sind Protina, ein unab­hängiges und mittel­ständisches Familien­unter­nehmen in dritter Generation. Wir stehen seit über 100 Jahren für hochwertige organische Mineralstoff­verbindungen und Gesundh......

Controller (m/w/d) Sie suchen einen erfüllenden Job, der 365 mal im Jahr Sinn ergibt? Bewerben Sie sich bei der NGD! Erziehen – Fördern – Pflegen – Heilen … Mit rund 70-jähriger Erfahrung im sozialen Dienstleistungsbere......

Unternehmenscontroller (m/w/d) Durch technische Sicherheitslösungen wie Brand- und Sonderbrandmeldesysteme bis hin zu Videosicherheitssystemen und Einbruch­meldeanlagen helfen wir dabei, Leben und Sachwerte unserer Kunden zu schütz......

Finanzprüfer*in (w/m/d) Die Stadt Weinheim mit rund 45.000 Einwohner*innen ist inner­halb der Metropol­region Rhein-Neckar ein beliebter Wohnort mit großem Bildungs-, Sport- und Kultur­angebot. Wir als Beschäftigte (ca. ......


Wie zufrieden sind Sie mit uns?

teamwork_pm_Dmitriy_Shironosov_400x300.jpg  
Über Ihre Meinung und auch ihre Anregungen für Veränderungen oder Erweiterungen würden wir uns sehr freuen. Nur 3 kurze Fragen, die schnell beantwortet sind. Vielen Dank im Voraus für Ihre Mithilfe! zur Umfrage >>

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
Anzeige
Excel-Vorlage: RS Controlling System

Stellenanzeigen

(Production) Controller (m/w/d)
Unsere ausgeprägte Leidenschaft für Live Entertainment, Musicals und Theateraufführungen auf höchstem Niveau ist, was uns bei Stage verbindet. Diese gemeinsame Begeisterung macht aus den vielfältigsten Mitarbeitenden in unterschiedlichsten Jobs ein hingebungsvolles Team: ein echtes „Wir“. Und das... Mehr Infos >>

Leitung Controlling (m/w/d)
Die Stadtwerke Heilbronn GmbH ist ein wachstums­orientiertes Infrastruktur- und Dienst­leistungs­unternehmen. Mit 400 Mitarbeitern erbringen wir Leistungen für die Einwohner der Stadt Heilbronn und die in Heilbronn ansässigen Unternehmen in den Bereichen Wasser­versorgung, Stadtbahn und -bus, Eis... Mehr Infos >>

Teamleitung Finanzbuchhaltung (m/w/d)
Sie sind ein versierter Zahlenexperte mit Führungstalent und suchen eine Aufgabe, in der Ihr Können wirklich geschätzt wird? Das bieten wir Ihnen: Polstermöbel Fischer zählt mit rund 250 Mitarbeitenden zu den großen Polstermöbel-Filialunternehmen in Deutschland mit dem Ziel die Nr. 1 zu sein! Wir... Mehr Infos >>

Controller (w/m/d) Supply Chain Finance
Techtronic Industries ist weltweit führend in der Herstellung und im Vertrieb von hochwertigen Elektrowerkzeugen für den DIY-Markt und den Profieinsatz sowie von Gartengeräten. Ein strategischer Fokus auf leistungsstarke Marken, innovative Produkte und außergewöhnliche Menschen bestimmt unseren E... Mehr Infos >>

Finanzprüfer*in (w/m/d)
Die Stadt Weinheim mit rund 45.000 Einwohner*innen ist inner­halb der Metropol­region Rhein-Neckar ein beliebter Wohnort mit großem Bildungs-, Sport- und Kultur­angebot. Wir als Beschäftigte (ca. 800) der Stadt­verwaltung wollen unsere Stadt Tag für Tag weiter­entwickeln. Wenn Sie Teil un... Mehr Infos >>

Controller*in – Forschungsinstitut
Die Fraunhofer-Gesellschaft (www.fraunhofer.de) betreibt in Deutschland derzeit 76 Institute und Forschungs­einrichtungen und ist eine der führenden Organisationen für anwendungsorientierte Forschung. Rund 32 000 Mitarbeitende erarbeiten das jährliche Forschungsvolumen von 3,4 Milliarden ... Mehr Infos >>

Controller (m/w/d) − Production Controlling (m/w/d)
LITEF-Produkte sind weltweit in einer Vielzahl von Anwendungen im Einsatz. Unsere Lösungen und Erfahrungen bieten wir Kunden, die dynamische Vorgänge (Beschleunigungen und Drehungen) messen und regeln wollen, Lage und Kurs von Fahrzeugen ermitteln oder navigieren wollen – auf dem Land, in... Mehr Infos >>

Kaufmännischer Leiter (m/w/d)
Sie übernehmen als kaufmännischer Leiter (m/w/d) die Verantwortung für die Führung Ihres Teams und unterstützen den Geschäftsführer der Lorenz GmbH & Co. KG bei allen betriebswirtschaftlichen Fragen zur Steuerung des Unternehmens. Fachlich berichten Sie an die in München ansässige BRUNATA... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

Controlling-Portal auf:
Facebook >> und  Linkedin >>

Beliebtes PC-Seminar:
Power BI - Das moderne Business Intelligence-Tool

20241008-06816_290x100px.jpg

Das beliebte PC-Seminar bietet Ihnen den Einstieg in die Analyse, Auswertung und Visualisierung von Daten mit Power BI, um Ihre Aufgaben im Controlling effizienter und schneller zu erledigen. So können Sie z. B. Daten aus Excel-, CSV-Dateien, SQL-Datenbanken etc. automatisiert importieren und bereinigen, um diese in gewünschter Form auswerten und visualisieren zu können. Nach dem Seminar kennen Sie die wichtigsten Begriffe und Anwendungsfälle von Power BI und können das Wissen in Ihrem Unternehmen umsetzen.   

Erfahren Sie mehr zum PC-Seminar >>  

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 >>

Excel-Tools für Controller!

Diagramme_Charts_pm_chormail@hotmail-com_B347361660_400x300.jpg

Über 500 Vorlagen direkt zum Download. Verschaffen Sie sich einen Überblick >>

Software-Tipps

LucaNet_simply_intelligent_Logo_RGB.jpg
LucaNet.Financial Consolidation ist die Software für eine prüfungssichere Konsolidierung, die alle Funktionen für die Erstellung eines legalen Konzernabschlusses nach unterschiedlichen Rechnungslegungsstandards bietet.
Mehr Informationen >>

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

Projekt Toolbox

Bild Projekt Toolbox.png
Die Projekt-Toolbox enthält 10 nützliche Excel Vorlagen, die sich erfolgreich im Projektmanagement bewährt haben. Ideal für Projektleiter und Mitarbeiter aus dem Projektmanagement.
Mehr Informationen >>

Strategie-Toolbox mit verschiedenen Excel-Vorlagen

PantherMedia_Wavebreakmedia_ltd_400x289.jpg
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.
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 >>

Begriffsverwirrung vermeiden - Eine Serie von Prof. Ursula Binder 

PantherMedia_Wavebreakmedia_ltd_400x289.jpg
Im Laufe der Zeit haben sich Fachbegriffe entwickelt, die exakt definiert sind. Jedoch sind einige Begriffe mehrdeutig, was zu vielen Missverständnissen und Fehlern führt. In dieser Serien werden einige Begriffe vorgestellt um Verwirrungen zu vermeiden.
Zur kompletten Serie >>
Weitere interessante Serien 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 >>