Wie verwende ich die MIRR-Funktion in VBA?

Um die MIRR (Modified Internal Rate of Return) Funktion in VBA (Visual Basic for Applications) zu verwenden, können Sie entweder die integrierte Excel-Funktion `MIRR` direkt aufrufen oder die Berechnung manuell in Ihrem VBA-Code implementieren, falls Sie erweiterte Anpassungen benötigen. Hier zeige ich Ihnen, wie Sie beide Methoden verwenden können:

Methode 1: Verwenden der integrierten Excel-Funktion `MIRR`

Diese Methode ist einfacher und nutzt die bereits vorhandene Excel-Funktion. Stellen Sie sicher, dass Sie die Excel-Bibliothek referenzieren, wenn Sie VBA in einer Umgebung außerhalb von Excel verwenden (z. B. in Access).

Sub CalculateMIRR()
    Dim cashFlows As Variant
    Dim financeRate As Double
    Dim reinvestRate As Double
    Dim mirrValue As Double
    
    ' Beispiel-Cashflow-Daten
    cashFlows = Array(-10000, 3000, 4200, 6800)
    
    ' Finanzierungs- und Wiederanlagesätze
    financeRate = 0.1 ' 10%
    reinvestRate = 0.12 ' 12%
    
    ' Berechnen der MIRR
    mirrValue = WorksheetFunction.MIRR(cashFlows, financeRate, reinvestRate)
    
    ' Ergebnis anzeigen
    MsgBox "The MIRR is: " & Format(mirrValue, "0.00%")
End Sub

Methode 2: Manuelle Berechnung der MIRR

Falls Sie die Berechnung erweitern oder anpassen müssen, können Sie den zugrundeliegenden Algorithmus selbst implementieren. Dies ist jedoch komplexer und wird normalerweise nicht benötigt. Für die meisten Anwendungen wird die erste Methode ausreichen.

Hier sind die Schritte für die manuelle Berechnung, falls Sie diese benötigen würden:

Trennen Sie die Cashflows in positive und negative Flüsse.
Diskontieren Sie die negativen Cashflows mit dem Finanzierungszinssatz zum Zeitpunkt 0.
Verzinsen Sie die positiven Cashflows mit dem Wiederanlagezinssatz bis zum Ende des Projekts.
Verwenden Sie die modifizierte Gleichung für den internen Zinsfuß (IRR), um die MIRR zu berechnen.

Diese Schritte manuell in Code umzusetzen, wäre ausführlich und könnte je nach Bedarf angepasst werden. Normalerweise ist dies jedoch zu komplex für den praktischen Gebrauch, wenn die eingebaute Excel-Funktion verfügbar ist.

Für die meisten Anwendungsfälle ist die Verwendung der integrierten `WorksheetFunction.MIRR` der effizienteste und zuverlässigste Weg.

facebooklinkedin