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. (1 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 >>

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

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

Excel-Tool Unternehmensbewertung (Valuation Box)

Die „Valuation Box“ von Fimovi beinhaltet drei verschiedene, unabhängig voneinander verwendbare Excel-Vorlagen zur einfachen und schnellen Unternehmensbewertung. Dabei werden die Verfahren die Discounted Cashflow Methode (DCF), Venture Capital Methoden und First Chicago Methode.
Mehr Informationen >>

Break Even Analyse

BreakEven.png
Nach Eingabe der Fixkosten, der variablen Stückkosten und des Verkaufspreises wird die Break-Even-Menge sowie für alternative Absatzmengen die Kosten-, Erlös- und Gewinnwerte ermittelt. Für die tabellarische Lösung kann durch die Eingabe der Schrittweite frei festgelegt werden, für welche Absatzmengen die jeweiligen Kosten und Erlöse dargestellt werden sollen.
Mehr Informationen >>

RS Liquiditätsplanung L (Excel-Tool)

Liquiditätsplan.png
Es handelt sich hierbei um 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 sind auf extra Tabellenblättern für z.B. einzelne Projekte oder Produkte vorhanden. Auswertungen erfolgen in der Jahresplanung mit monatlichen Werten.
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 >>