Thema Datum  Von Nutzer Rating
Antwort
Rot XIRR Funktion, beginnend mit dem ersten Wert <>0
18.07.2022 09:30:24 Opportunity_Cost
NotSolved
18.07.2022 09:53:49 Gast1825
NotSolved
18.07.2022 10:19:55 Opportunity_Cost
NotSolved
18.07.2022 10:20:32 Gast3025
NotSolved
18.07.2022 10:24:16 Gast85132
NotSolved
18.07.2022 10:29:18 Gast85132
**
NotSolved
18.07.2022 10:20:06 Gast32759
*****
NotSolved
18.07.2022 10:23:09 Opportunity_Cost
NotSolved
25.07.2022 14:13:22 Opportunity_Cost
NotSolved
25.07.2022 16:10:07 Gast15075
NotSolved
25.07.2022 21:22:31 Gast15772
NotSolved
26.07.2022 09:29:54 Opportunity_Cost
NotSolved
26.07.2022 14:12:27 Gast94377
NotSolved
26.07.2022 17:24:09 Opportunity_Cost
NotSolved

Ansicht des Beitrags:
Von:
Opportunity_Cost
Datum:
18.07.2022 09:30:24
Views:
126
Rating: Antwort:
  Ja
Thema:
XIRR Funktion, beginnend mit dem ersten Wert <>0

Hallo zusammen,

bekanntlich funktioniert die XIRR Funktion nicht, wenn der erste Wert oder mehrere = 0 sind. In einem Template, was ich derzeit baue, wird dies jedoch definitiv vorkommen, weshalb ich versuche über VBA eine XIRR Variante zu programmieren, die die Range für die IRR mit dem ersten Wert <> 0 beginnen lässt.

Folgendes habe ich bis jetzt aus alten Beiträgen zusammentragen können, jedoch funktioniert diese Formel bei mir nicht (#Value-Error):

Function fcm_xirr(ZeroValues As Range, ZeroDates As Range) As Double
    
    Dim values() As Double, dates() As Date
    ReDim values(0 To ZeroValues.Count - 1)
    ReDim dates(0 To ZeroDates.Count - 1)
    
    Dim j As Integer
    j = 0
    For i = 1 To ZeroValues.Count
        If ZeroValues(i) <> 0 Then
            values(j) = ZeroValues(i)
            dates(j) = datesWithZeros(i)
            j = j + 1
        End If
    Next i

    Dim valuesX() As Double, datesX() As Date
    ReDim values(0 To j - 1)
    ReDim dates(0 To j - 1)
    For i = 0 To j - 1
        valuesX(i) = values(i)
        datesX(i) = dates(i)
    Next i
    
    fcm_xirr = Application.Xirr(valuesX, datesX)

End Function

Danke für eure Hilfe!
Opportunity_Cost


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot XIRR Funktion, beginnend mit dem ersten Wert <>0
18.07.2022 09:30:24 Opportunity_Cost
NotSolved
18.07.2022 09:53:49 Gast1825
NotSolved
18.07.2022 10:19:55 Opportunity_Cost
NotSolved
18.07.2022 10:20:32 Gast3025
NotSolved
18.07.2022 10:24:16 Gast85132
NotSolved
18.07.2022 10:29:18 Gast85132
**
NotSolved
18.07.2022 10:20:06 Gast32759
*****
NotSolved
18.07.2022 10:23:09 Opportunity_Cost
NotSolved
25.07.2022 14:13:22 Opportunity_Cost
NotSolved
25.07.2022 16:10:07 Gast15075
NotSolved
25.07.2022 21:22:31 Gast15772
NotSolved
26.07.2022 09:29:54 Opportunity_Cost
NotSolved
26.07.2022 14:12:27 Gast94377
NotSolved
26.07.2022 17:24:09 Opportunity_Cost
NotSolved