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. (2 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 >>
LI-In-Bug.pngBleiben Sie auf dem Laufenden und informieren sich über neue Fachbeiträge, Excel-Tools und Jobangebote auf unserer LinkedIn-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 >>  

eBook Cover 290px geschnitten nur Hand.jpg

eBook: Controlling mit Chat GPT

Dieses Buch zeigt praxisnah, wie Sie ChatGPT effektiv in Ihren Controlling-Alltag integrieren können. Von der Erstellung intelligenter Prompts bis hin zur Automatisierung von Controlling-Prozessen – Sie erhalten das Wissen und die Werkzeuge, um Ihre Arbeit auf das nächste Level zu heben.

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

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

QuoVadis.jpg
Der BusinessPlanner besticht seit Jahren durch seine schnelle und professionelle Umsetzung einer integrierten Unternehmensplanung. Ein besonderer Fokus liegt auf der Integration von Planbilanz und Finanzplan / Cashflow – inklusive transparentem und aussagekräftigem Reporting.
Mehr Informationen >>

Lucanet_logo.jpg
LucaNet.Planner deckt alle Anforderungen der integrierten Unternehmensplanung, des Reportings und der Analyse ab. Setzen Sie auf eine Software, die Ihnen mit maximaler Transparenz Arbeitsprozesse erleichtert. Mit wenigen Mausklicks passen Sie vorgefertigte Strukturen an Ihre Bedürfnisse an und importieren Ist-Zahlen über fertige Schnittstellen aus Ihrem Vorsystem.  Mehr Informationen >>

idl.png
Die IDL CPM Suite ist eine Software für die Unternehmenssteuerung mit integrierten Applikationen für Konzernkonsolidierung, Finanzplanung, operative Planung, Managementreporting, regulatorisches Berichtswesen und Analyse. Herausragende Usability, hohe Automatisierung und Fachlichkeit zeichnen sie aus. Mehr Informationen >>

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

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

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