VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Opportunity_Cost

Datum:
18.07.2022 10:19:55

Views:
581

Rating:

Antwort:

Thema:
XIRR Funktion, beginnend mit dem ersten Wert <>0

Hi, danke für deine Hilfe - arbeite noch nicht lange mit VBA.

Anbei der "bereinigte" Code - das Ergebnis ist nach wie vor ein #Value!-Fehler.

Any ideas?

Option Explicit
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
    Dim i As Integer
    j = 0
    For i = 1 To ZeroValues.Count
        If ZeroValues(i) <> 0 Then
            values(j) = ZeroValues(i)
            dates(j) = ZeroDates(i)
            j = j + 1
        End If
    Next i

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

End Function

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
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:30:24	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:53:49	Gast1825
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:19:55	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:32	Gast3025
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:24:16	Gast85132
... vermutlich ist da Problem...	18.07.2022 10:29:18	Gast85132
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:06	Gast32759
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:23:09	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 14:13:22	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 16:10:07	Gast15075
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 21:22:31	Gast15772
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 09:29:54	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 14:12:27	Gast94377
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 17:24:09	Opportunity_Cost