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. (4 Gäste, 0 registrierte User, 0 versteckte User):

News

Rechnungsverarbeitung im Kontext der Public Cloud Rechnungsverarbeitung im Kontext der Public Cloud Mit der neuen, für alle unumgänglichen Produktgeneration S/4HANA drängt SAP mit Vehemenz in die Cloud, vorzugsweise in die Public-Variante. Eingangsrechnungen zu verarbeiten, dies wird für SAP-Anwenderunternehmen......

Digitalisierungs­aktivitäten im Mittelstand verlieren deutlich an Schwung Digitalisierungs­aktivitäten im Mittelstand verlieren deutlich an Schwung Aus dem neuen Digitalisierungsbericht von KfW Research geht hervor, dass die Digitalisierungsaktivitäten des deutschen Mittelstands über alle Wirtschaftszweige hinweg zuletzt eingebrochen sind. Der Anteil......

Stärker digitalisierte Unternehmen weisen eine höhere Produktivität auf Stärker digitalisierte Unternehmen weisen eine höhere Produktivität auf Je digitaler ein Unternehmen aufgestellt ist, umso produktiver ist es. Dieser Zusammenhang ist umso stärker ausgeprägt, je weiter die Digitalisierung des Unternehmens bereits fortgeschritten ist. Das ......


Aktuelle Stellenangebote

Analyst Finanz- und Rechnungswesen (w/m/d) Seit der Gründung im Jahr 1963 hat HYDAC eine beeindruckende Entwicklung durchlaufen – Von einem Spezialisten für Speichertechnik zu einem globalen Unternehmen mit über 20 Produktbereichen. In den ver......

Beteiligungscontroller (m/w/d) Wir sind Marktführer für ganzheitliche Lösungen rund um die Fahrzeugwäsche. Mit smarten, digitalen Technologien, einem breiten Portfolio an Maschinen, bester Waschchemie und einem erstklassigen Servic......

Senior Finanzbuchhalter (m/w/d) Seit Generationen kümmert sich BRUNATA-METRONA München um die Erfassung und Abrechnung von Heizenergie, Wasser und Strom in den verschiedensten Immobilienarten. Dank unserer digitalen Messtechniken kö......

Mitarbeiter im Rechnungswesen (m/w/d) Als moderne Baugenossenschaft mit rund 1.700 eigenen Wohnungen sind wir in der attraktiven Landes­hauptstadt Stuttgart seit 1893 der kompe­tente Partner für Wohnungs­vermietungen. Unser Kerngeschäft i......

Finanzbuchhalter (m/w/d) Die Firmengruppe Flückiger steht für ein inhaber­geführtes Familien­­unter­nehmen mit Sitz in Freiburg im Breisgau. Wissen, Erfahrung und Kompetenz unserer Mitarbeiter/-innen sind seit Jahrzehnten uns......

Plant Controller / Werkscontroller (m/w/d) Bühler Motor steht für anspruchsvolle, auf Kunden­anforderungen maß­geschneiderte und dauerhaft zuverlässige elektromechanische und elektrohydraulische Antriebslösungen. Weltweit 1.050 Mitarbeiterinne......

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

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
Facebook_Logo_Primary.png
Bleiben Sie auf dem Laufenden und informieren sich über neue Fachbeiträge, Excel-Tools und Jobangebote auf unserer Facebook-Seite >>

Stellenanzeigen

Immobilienkauffrau/ - kaufmann (m/w/d) für Nebenkostenabrechnungen & Vertragsmanagement
Wir, die Eisenbahner-Baugenossenschaft München-Hauptbahnhof eG, wurden 1908 gegründet. Heute bewirtschaften wir über 2.566 Wohneinheiten, 43 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 >>

Bilanzbuchhalter (m/w/d)
Flossbach von Storch zählt heute zu den größten unabhängigen Vermögensverwaltern in Europa. Mit mehr als 400 Mitarbeitenden betreuen wir rund 70 Mrd. Euro für private und institutionelle Kunden. Seit der Gründung im Jahr 1998 stehen wir für erstklassiges Investmentmanagement mit einem fundamental... Mehr Infos >>

Sachbearbeiter Finanz- und Rechnungswesen / Bilanzbuchhalter (m/w/d)
Seit fünf Jahrzehnten stehen wir als Familienunternehmen METZ CONNECT für Präzision, Zuverlässigkeit und Erfindergeist im Bereich der elektrischen Verbindungstechnik. Mit rund 850 Mitarbeitenden an Standorten in Europa, Asien und Nordamerika entwickeln, produzieren und vertreiben wir Systeme für ... Mehr Infos >>

Senior Finanzbuchhalter (m/w/d)
Seit Generationen kümmert sich BRUNATA-METRONA München um die Erfassung und Abrechnung von Heizenergie, Wasser und Strom in den verschiedensten Immobilienarten. Dank unserer digitalen Messtechniken können wir Kundinnen und Kunden verlässliche Daten über ihren Energieverbrauch zur Verfügung stelle... Mehr Infos >>

Senior Controller*in (w/m/div)
Du arbeitest gerne authentisch auf Augenhöhe von Mensch zu Mensch? Dann komm zu uns! Wir, die Sparda-Bank Berlin mit ca. 800 Kolleg*innen, sind als Genossenschaftsbank im und für den Osten von Deutschland tätig. Für unsere 460.000 Privatkund*innen arbeiten wir alle täglich daran positive Kundener... Mehr Infos >>

Controller (M/W/D) in Vollzeit - Schwerpunkt Abteilungscontrolling & Reporting
Wir sind immer auf der Suche nach engagierten Talenten, die unsere dynamische Organisation verstärken. Mit einem kollegialen, kooperativen und innovativen Arbeitsumfeld sowie guten Entwicklungsmöglichkeiten ist dies die perfekte Gelegenheit für alle, die mit Leidenschaft etwas im Gesundheitswesen... Mehr Infos >>

Controller (m/w/d)
Als traditionsreiches Unternehmen in der Papierindustrie mit klarem Fokus auf Nachhaltigkeit und technologischer Weiterentwicklung, wo seit über 170 Jahren mit rund 300 Mitarbeitenden jährlich ca. 240.000 Tonnen Papier und 80.000 Tonnen grafische Pappe produziert werden, suchen wir zum nächstmögl... Mehr Infos >>

Produktionscontroller (m/w/d)
GOLDBECK realisiert zukunftsweisende Immobilien in Europa. Wir verstehen Gebäude als Produkte und bieten alle Leistungen aus einer Hand: vom Design über den Bau bis zu Services im Betrieb. Aktuell beschäftigt unser Familienunternehmen mehr als 13.000 Mitarbeitende an über 100 Standorten bei einer... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

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

Viele kostenlose Webinare rund ums Controlling

CoPlanner_Logo_2_RGB_tuerkis_300dpi-controllingportal.jpg
In unseren Webinaren erfahren Sie, wie Sie Ihr Controlling auf ein neues Niveau heben. Neueste Trends, praxisnahe Einblicke und wie Sie Ihre Fähigkeiten optimieren können.  Vom präzisen Forecasting über HR-Controlling bis zur Konsolidierung und integrierten Planung: Die Webinare sind darauf ausgerichtet, Sie zu inspirieren, zu informieren und zu befähigen.     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 >>

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

jedox-logo-250px.jpg
Jedox wird für Planung, Budgetierung, Analyse und Management-Reporting eingesetzt. Dank Excel-naher Benutzeroberfläche und ausgefeilter Dashboard- und Reporting-Funktionen genießt die Lösung eine hohe Akzeptanz im gesamten Unternehmen. Mehr Informationen >>

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

Excel-Vorlage: Bilanzanalyse

Analysieren Sie die Bilanz Ihres Unternehmens oder Wettbewerbers ohne großen Aufwand aber transparent in Grafiken aufbereitet. Profitieren Sie von einer klaren Übersicht und Jahresvergleich der einzelnen Bilanzpositionen.
Mehr Informationen >>

Excel Vorlage Boston Matrix

Boston_Matrix_Excel_Vorlage.png
Mit der Excel-Vorlage "Boston Matrix" haben ein strategisches Tool für die Analyse von Marktteilnehmern. Nachdem Sie eine Kennzahl, zum Beispiel Umsatz, der Marktteilnehmer und dem Benchmark-Teilnehmer in einer Eingabemaske eingegeben haben, werden diese im 4 Felder-Portfolio visualisiert. Ideal für Unternehmensberater bzw. strategische Auswertungen.
Mehr Informationen >>

RS Toolpaket - Planung

Wir setzen für Sie den Rotstift an. Sparen Sie mit unsrem RS Toolpaket - Planung über 35% im Vergleich zum Einzelkauf. Das RS Toolpaket -Planung stellt Ihnen die wichtigsten Werkzeuge für Ihre Unternehmensplanung zur Verfügung. Das Planungspaket umfasst 4 Excel-Tools! 
Mehr Informationen >>

Weitere über 400 Excel-Vorlagen finden Sie hier >>
Premium-Mitglied werden

Kosten- und Leistungsrechnung: Aus der Praxis für die Praxis von Jörgen Erichsen 

kosten-muenzen-geld-pm_Boris_Zerwann_240x180.jpg
Zur KLR gibt es zahllose Veröffentlichungen, die sich vor allem mit Definitionen und Theorien befassen. Im Unterschied dazu ist diese Serie aus 6 Teilen so konzipiert, dass sie sich vor allem mit der Anwendbarkeit im Tagesgeschäft befasst und so gerade für Unternehmer in kleinen Betrieben und Selbstständige einen hohen Nutzwert bieten. 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 >>