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

Veranstaltungs-Tipp

Confex_Online-Banner_290px.jpg
Lernen Sie von unseren Experten alle Tricks zum Thema Power BI.
  • Erfahrene Trainer mit fundiertem Power BI Wissen
  • Praxisnahe Beispiele und Übungen für sofortige Anwendung
  • Kleine Gruppen für maximale Interaktion
Melden Sie sich jetzt an, es gibt noch freie Plätze.

Ebook_DG_ISBN_978-3-00-050814-1_290px.png

eBook: Erstellung einer integrierten Finanz- und Liquiditätsplanung mit Excel

Dieses Buch zeigt praxisnah und verständlich, wie Sie mit Excel eine integrierte, investoren- und bankenkonforme Finanz- und Liquiditätsplanung aufbauen. Die Notwendigkeit für einen solchen professionellen Finanzplan ergibt sich nicht nur in Gründungs- und Wachstumsphasen, z.B. bei der Kapitalbedarfsermittlung, Businessplanerstellung und Investorenansprache, sondern auch als Steuerungsinstrument im laufenden Betrieb sowie in Insolvenz- und Sanierungssituationen.

Jetzt hier für 26,75 EUR downloaden >>

Excel-Vorlage für Angebotsvergleich

Angebotsvergleich Excel 290px.jpg
Formelgestützte Ermittlung des "besten" Angebots durch Gegenüberstellung der Angebotskonditionen verschiedener Anbieter. Das Excel-Tool bietet einen quantitativen und einen qualitativen Angebotsvergleich, in dem zunächst der Anbieter mit dem günstigsten Bezugspreis und anschließend nach bestimmten Bewertungskriterien der "beste" Lieferant ermittelt wird.

Jetzt hier für 25,- 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

jabatix_logo_Businessplan_290px.png
Jabatix NC ist eine Rechenmaschine, als add-on für Excel, für Controller in kleinen und mittleren Unternehmen. Sie führt komplexe Berechnungen durch und stellt die Ergebnisse in EXCEL bereit – ohne lange Einarbeitung. Mehr Informationen >>

Diamant.PNG
Diamant/3 bietet Ihnen ein Rechnungswesen mit integriertem Controlling für Bilanz- / Finanz- und Kosten- / Erfolgs- Controlling sowie Forderungsmanagement und Personalcontrolling. Erweiterbar bis hin zum unternehmensweiten Controlling. Mehr Informationen >>


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

Kreditrechner - 50 Darlehen in Excel verwalten

Kreditrechner_Excel.jpg
Mit diesem Kreditrechner für Excel hast du deine gesamte Schuldenlage im Griff – einfach, übersichtlich und effektiv. Spare bares Geld durch bessere Planung. Dieser Planer wurde speziell dafür entwickelt, auch bei komplexen Kreditstrukturen Übersicht und Kontrolle zu behalten. Bis zu 50 Kredite gleichzeitig verwalten und Laufzeiten bis zu 50 Jahre abbilden

Jetzt hier für 17,90 EUR downloaden!

Premium-Inhalte

Als Premium-Mitglied erhalten Sie Zugriff auf ausgewählte sonst kostenpflichtige Fachbeiträge und Video-Kurse für Premium-Mitglieder inklusive (über 400 Beiträge allein auf Controlling-Portal.de + Premiuminhalte auf Rechnungswesen-Portal.de).

Beispiele:

- Serie zum Berichtswesen in Unternehmen
- Kundenwertanalyse – Wie profitabel ist ein Kunde?
- Potenzialanalyse mit Excel
- Unsere amüsante Glosse: Neulich im Golfclub
- Kostenmanagement in der Logistik
- Dashboards im Kostenmanagement
- Von Total Cost of Ownership (TCO) zu TCOplus
- KLR - Aus der Praxis für die Praxis

Die Gesamtliste an Premium-Fachbeiträgen können Sie hier einsehen >>

Premium-WebinareVideo Kurs: Kennzahlen im Controlling

PantherMedia_Yuri_Arcurs200x150.jpg
Bei der Erstellung eines Kennzahlen-Cockpit, stellt sich oft die Frage, welche KPIs hier zwingend mit aufgenommen werden sollen. In diesem Online-Kurs lernen Sie Schritt für Schritt inkl. praktischer Übungsaufgaben, wie Kennzahlen im Unternehmen priorisiert und im Controlling effektiv eingesetzt werden. Zum Video-Kurs >>

Video Kurs: Controlling kompakt

Controller sind die internen Unternehmensberater im Betrieb. In diesem Controlling Kompakt-Kurs erhalten Sie mehrere Lernvideos, wie gutes Controlling funktioniert. Die Videos sind "Best-of" Auszüge aus anderen spezifischen Video-Kursen. Zum Video-Kurs >>

Video Kurs: Controlling im E-Commerce

Die Gesetze im E-Commerce sind für das Controlling anders. Die Kennzahlen müssen richtig interpretiert werden, um aus den Analysen die richtigen Maßnahmen ableiten zu können. In diesem Online-Kurs lernen Sie Schritt für Schritt, wie erfolgreiches Controlling im E-Commerce funktioniert. Zum Video-Kurs >>

Weitere Video-Kurse 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 >>