Wie verwende ich die NPV-Funktion in VBA?

Die NPV-Funktion (Net Present Value) in VBA wird verwendet, um den Kapitalwert von einer Reihe von Cashflows zu berechnen, die durch einen konstanten Diskontsatz abgezinst werden. Dies ist besonders nützlich bei der Bewertung von Investitionsprojekten. In VBA ist die NPV-Funktion nicht direkt verfügbar, wie es in einem Excel-Arbeitsblatt der Fall ist, aber Sie können auf die Excel-Funktion zugreifen, indem Sie die `WorksheetFunction`-Eigenschaft verwenden.

Hier ein Beispiel, wie Sie die NPV-Funktion in VBA verwenden können:

Sub CalculateNPV()
    Dim DiscountRate As Double
    Dim CashFlows As Variant
    Dim NPV As Double

    ' Diskontsatz festlegen
    DiscountRate = 0.1 ' 10%

    ' Cashflows definieren (z.B. jährliche Cashflows)
    CashFlows = Array(-5000, 1500, 2000, 3000, 4000)

    ' NPV berechnen
    NPV = Application.WorksheetFunction.Npv(DiscountRate, CashFlows)

    ' Ergebnis ausgeben
    MsgBox "Der Kapitalwert (NPV) des Projekts beträgt: " & NPV
End Sub

Erklärung:

DiscountRate ist der Diskontsatz, der auf die zukünftigen Cashflows angewendet wird. In diesem Beispiel beträgt er 10 %.
CashFlows ist ein Array, das die Serie von Cashflows darstellt. Der erste Wert könnte beispielsweise eine Anfangsinvestition darstellen (daher negativ).
Application.WorksheetFunction.Npv ist der Aufruf der NPV-Funktion über die `WorksheetFunction`-Eigenschaft. Diese Funktion berechnet den Barwert der Serie von Cashflows basierend auf dem angegebenen Diskontsatz.
Die `MsgBox` zeigt den berechneten Kapitalwert an.

Stellen Sie sicher, dass die Cashflows so organisiert sind, dass sie den erwarteten Zahlungsströmen entsprechen, und beachten Sie, dass der NPV in dieser simplen Berechnung den Initialinvestitions-Cashflow nicht separat berücksichtigt, sondern als Teil des Arrays gehandhabt wird.

facebooklinkedin