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