Home / Forum / Allgemeine Foren / Investitionsrechnung / Excel Interner Zinsfuß in VBA programmieren (Gesamt-IRR)

Excel Interner Zinsfuß in VBA programmieren (Gesamt-IRR)

Anzeige

RS Controlling-System: Das RS- Controlling-System bietet Planung, Ist- Auswertung und Forecasting in einem Excel-System. Monatliche und mehrjährige Planung. Ganz einfach Ist- Zahlen mit Hilfe von Plan/Ist-Vergleichen, Kennzahlen und Kapitalflussrechnung analysieren. Im Rahmen der Vorschaurechnung (Forecasting) können Sie neben Ihren Plan- und Ist-Werten auch das auf Basis der derzeitigen Erkenntnisse basierende Jahresergebnis hochrechnen.  

Preis: 238,- EUR  Alle Funktionen im Überblick >>.

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

Qualifizierungsgeld: Unterstützung für Betriebe im Strukturwandel Qualifizierungsgeld: Unterstützung für Betriebe im Strukturwandel Seit dem 1. April 2024 gibt es für Unternehmen eine neue Leistung im Rahmen der Beschäftigtenqualifizierung: das Qualifizierungsgeld. Grundlage ist das neu geregelte Gesetz zur Stärkung der Aus- und Weiterbildungsförderung......

Automatisierte Finanzplanung: Vom Excel-basierten Planungsverfahren zu einer automatisierten, systemgestützten Lösung Automatisierte Finanzplanung: Vom Excel-basierten Planungsverfahren zu einer automatisierten, systemgestützten Lösung Manuelle Konsolidierung von Excel-Templates im Rahmen der Budgetplanung – nicht mehr bei DR. KADE Health Care. Der Berliner Pharmahersteller setzt auf die Finanzplanungssoftware von Corporate Planning......

Neun von zehn schließen einen Jobwechsel nicht aus, fast die Hälfte hiervon sucht sogar selbst aktiv Neun von zehn schließen einen Jobwechsel nicht aus, fast die Hälfte hiervon sucht sogar selbst aktiv Im Kampf um die besten Talente können Arbeitgeber bei Jobsuchenden mit maßgeschneiderten Angeboten passend zur Karrierephase kräftig punkten. Das ist Ergebnis der Studie „Attracting Talent 2024“ der digitalen......


Aktuelle Stellenangebote

Business Controller (m/w/d) Wir machen Ihr Zuhause zum schönsten Ort der Welt! Die Gries Deco Company gehört – mit den Erfolgs­marken DEPOT, Rooms by DEPOT und ipuro – zu den großen Deko- und Einrichtungs­spezialisten im deutsch­sprachigen......

Referent (w/m/d) Fördermittelverwaltung/-controlling Der DRK-Landesverband Schleswig-Holstein e. V. ist ein Spitzenverband der freien Wohlfahrtspflege, eine nationale Hilfsgesellschaft und ein modernes Dienstleistungsunternehmen. Mit seinen ca. 1.000 Mi......

Senior Controller (m/w/d) Die ganze Welt vertraut Giesecke+Devrient, wenn es um digitales, physisches oder elek­tronisches Bezahlen geht. Entdecken auch Sie Ihre Leidenschaft für die Welt des Bezahlens. Giesecke+Devrie......

Controller (m/w/d) Vielfalt gestalten. Wissen nutzen. Verantwortung tragen. Sicherheit geben. LEAVE YOUR MARK! Auch nach über 190 Jahren entwickeln wir unsere Inspektions-, Klassifikations- und Zertifizierungslösungen p......

Tax & Accounting Specialist (m/w/d) Vielfalt gestalten. Wissen nutzen. Verantwortung tragen. Sicherheit geben. LEAVE YOUR MARK! Auch nach über 190 Jahren entwickeln wir unsere Inspektions-, Klassifikations- und Zertifizierungslösungen p......

Business Analyst (m/w/d) Data Warehouse Wir sind die Württembergische, der verlässliche Fels in der Brandung für unsere Kunden. Diese Leitidee begleitet uns in allem, was wir tun. Und dafür suchen wir Menschen, Mitstreiter und Macher. Die W......

Buch-Tipp


kennzahlen.png Kennzahlen-Guide für Controller- Über 200 Kennzahlen aus Finanzen, Personal, Logistik, Produktion, Einkauf, Vertrieb, eCommerce und IT.
Jede Kennzahl wird in diesem Buch ausführlich erläutert. Neben der Formel wird eine Beispielrechnung aufgeführt. Für viele branchenneutrale Kennzahlen stehen Zielwerte bzw. Orientierungshilfen für eine Bewertung zur Verfügung. Für die genannten Bereiche hat die Redaktion von Controlling-Portal.de jeweils spezialisierte Experten als Autoren gewonnen, die auf dem jeweiligen Gebiet über umfangreiche Praxiserfahrung verfügen. 
Preis: ab 12,90 Euro Brutto mehr >>

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

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

Stellenanzeigen

Teamleiter (m/w/d) Finanzen & Controlling
mdexx entwickelt und produziert unter anderem Transformatoren, Strom­versorgungen, Drosseln und Filter als Katalogprodukte sowie in kunden­spezifischer Ausführung. 50 Jahre Erfahrung, rund 470 hoch qualifizierte Beschäftigte weltweit sowie modernste Mess- und Prüfeinrichtungen gewähr­leisten unse... Mehr Infos >>

Commercial Process Manager (m/w/d)
Wir bei Ravensburger sind beides: ein global agierendes Unternehmen und eine große Familie. Als buntes Team voller unterschiedlicher Charaktere mit Herz und Leidenschaft für unser Gemeinschaftswerk bieten wir vielfältige Unterhaltungsangebote für Kinder und Familien. Unser Antrieb? Das Warum. Den... 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 >>

Senior Controller (m/w/d)
Die ganze Welt vertraut Giesecke+Devrient, wenn es um digitales, physisches oder elek­tronisches Bezahlen geht. Entdecken auch Sie Ihre Leidenschaft für die Welt des Bezahlens. Giesecke+Devrient ist ein global tätiges High-Tech-Unter­nehmen mit Hauptsitz in München. Als vertrauens­voller ... Mehr Infos >>

Abteilungsleiter (m/w/d) Controlling und Preisbildung
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 >>

Controller (w/m/d)
Als eines der führenden Logistikunternehmen in Europa beschäftigen wir bei FIEGE Logistik ca. 23.500 Mitarbeitende an rund 135 Standorten in 15 verschiedenen Ländern. Als Innovationsführer in der Branche bieten wir das Beste aus Logistik, Digital Services, Real Estate und Ventures. FIEGE ist seit... Mehr Infos >>

Buchhalter/in oder Steuerfachangestellte/n (m/w/d) mit Erfahrungen in der Immobilienbuchhaltung
Die WIRTGEN INVEST Holding GmbH ist das Family Office der Familie Wirtgen in Neustadt (Wied) im Raum Köln/Bonn. Als solides, finanzstarkes Unternehmen setzen wir auf strategische Investments in den Geschäftsfeldern Immobilien, erneuerbare Energien, Unternehmensbeteiligungen und Finanzen. ... Mehr Infos >>

Leitung (m/w/d) im Bereich Finanzen und Controlling
Wir, das Team vom Kom­mu­na­len Job­center Neue Wege, su­chen zur Ver­stär­kung eine Leitung (m/w/d) im Bereich Finanzen und Controlling ab sofort, unbefristet, Vollzeit (Teilzeit möglich). Neue Wege Kreis Berg­straße – Kom­mu­na­les Job­center – ist als Eigen­be­trieb des Kreises... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_800x504.jpg

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

Business Intelligence mit Excel – PC-Seminar

GettyImages-1205248121_290x100.jpg
Sie lernen die Business Intelligence (BI) Tools in Excel anzuwenden und werden so Ihren Arbeitsalltag merklich erleichtern Bspw. lernen Sie, wie Sie mit den Power-Tools Datenmodelle erstellen, Daten analysieren und visualisieren.

Mit dem neu erworbenen Wissen können Sie u. a. zeit- und ressourcensparend Berichte erstellen, mit denen Sie Optimierungspotenziale aufdecken und Geschäftsentscheidungen erleichtern können.   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.
 



aufgefallen ?!


Ihre Werbung hier !





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

Excel Mauspad
50 deutsche Excel-Shortcuts

  • über 50 Excel-Shortcuts für das Büro
  • Keine Suche mehr über das Internet und damit Zeitersparnis
  • Gadget für das Büro
  • Keine Zettelwirtschaft mehr auf dem Schreibtisch
  • Schnelle Antwort auf einen Shortcut wenn Kollegen Sie fragen
  • Preis: 17,95 EUR inkl. MWSt.
Jetzt hier bestellen >>


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.. Preis 47,60 EUR Mehr Infos und Download >>