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

Tipp der Woche

CP Newsletter: Neben aktuellen Neuigkeiten für Controller und neueingegangene Fachartikel, informieren wir Sie über interessante Literaturtipps, Tagungen , Seminarangebote und stellen Ihnen einzelne Software- Produkte im Detail vor. zur Eintragung >>

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

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

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

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

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

Referent Bewertungen (w/m/d)
Energie Süd­bayern (ESB) bildet gemeinsam mit den Tochter­unter­nehmen Energienetze Bayern und der ESB Wärme die ESB-Unternehmens­gruppe. Mit rund 450 Mit­arbeiterinnen und Mit­arbeitern, Auszu­bildenden und Trainees stehen wir für leistungs­fähigen Service, flexible Energie­produkte und ... Mehr Infos >>

Sachbearbeitung Buchhaltung – „Allround-Talent“ (w/m/d)
Die Verwaltung des Max-Planck-Instituts für extraterrestrische Physik (MPE), des Max-Planck-Instituts für Astrophysik (MPA) und der Max Planck Computing and Data Facility (MPCDF) ist eine zentrale Service­einrichtung und betreut rund 650 Instituts­angehörige. Die gemein­sa... Mehr Infos >>

Referent*in Finanzabteilung
An der Hochschule Emden/Leer, die sich als innovative, richtungsweisende Zukunfts­hochschule versteht, ist in der Finanz­abteilung (FA) am Campus Emden zum nächstmöglichen Zeitpunkt folgende Stelle mit der regelmäßigen wöchentlichen Arbeitszeit einer Vollbeschäftigung – zunächst befristet... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

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

Veranstaltungs-Tipp

it-kurse-excel-und-controlling-bei-pc-college.png
Sie sind Controller und wollen Ihre Excel oder Power-BI Kenntnisse verbessern? Dann sind unsere Excel /Power-BI Schulungen genau das Richtige für Sie! Lernen Sie, wie Sie Daten effizient analysieren, visualisieren und präsentieren können. Nutzen Sie die Vorteile von Pivot-Tabellen, Formeln, Makros und mehr. Melden Sie sich jetzt an und werden Sie zum Excel oder Power-BI Profi!  Mehr Infos >>  

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

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 >>
Nützliche Excel-Tools
digital_laptop_business_illustration_pm_elenabs_B110819976_290px.jpg
Personalkostenplanung mit Kurzarbeit
 Das Excel-Tool „Personalkostenplanung“ ermöglicht eine branchenunabhängige Personalkostenplanung auf monatlicher Basis für bis zu 50 Mitarbeiter für maximal 3 Jahre. Die maximale Anzahl der Mitarbeiter sowie der Planungshorizont lassen sich einfach erweitern. mehr Infos >>

Arbeitszeiterfassung und Tätigkeitsnachweis

Arbeitszeiten erfassen und Tätigkeitsnachweise erstellen Professionelle, branchenübergreifende Excel-Vorlage für die Erfassung von Arbeitszeiten bzw. die Erstellung von Tätigkeitsnachweisen. Die Vorlage eignet sich besonders für kleine und mittlere Unternehmen (KMU), aber auch für Freiberufler, Freelancer und Privatpersonen. mehr Infos >>

Excel-Rechnungsgenerator

Der „Rechnungsgenerator“ ist ein professionelles Excel-Tool zur einfachen, automatisierten Erstellung von Angeboten, Rechnungen und Lieferscheinen. Damit lassen sich rechtskonforme Rechnungen für in- und ausländische Unternehmens- oder Privatkunden... mehr Infos >>

Weitere Excel-Vorlagen finden Sie hier >>
Premium-Mitglied werden

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