Sterblichkeitsrente (Excel, VBA)

Sun, 10 May 2026 15:05:00 +0100

Abstract

Sie haben viele verschiedene Möglichkeiten, eine Sterblichkeitsrente zu berechnen:

Komplexe Matrixformel (Schlechteste Wahl)

Wenden Sie eine recht komplexe Matrixformel an:

Die Namen sind wie folgt definiert:

Einfache Benutzerdefinierte Funktion mit VBA (Bessere Wahl)

Ein weitaus besser Weg besteht in einer einfachen benutzerdefinierten Funktion:

Bitte den Haftungsausschluss im Impressum beachten.

Option Explicit
    
Function LiveAnnuityPV(lYears As Long, dInterestRate As Double, _
    rMortalityTable As Range) As Double
'Source (EN): http://www.sulprobil.de/mortality_annuities_en/
'Source (DE): http://www.berndplumhoff.de/mortality_annuities_de/
'(C) (P) by Bernd Plumhoff 22-Mar-2014 PB V0.1
Dim j As Long
Dim dSum As Double, dProd As Double, dPV As Double

dProd = 1#
dPV = 1#
For j = 1 To rMortalityTable.Count - lYears
    dPV = dPV / (1# + dInterestRate)
    dProd = dProd * (1# - rMortalityTable(j + lYears))
    dSum = dSum + dPV * dProd
Next j

LiveAnnuityPV = dSum

End Function

Vorkalkulierte Tabelle und eine NBW Formel (Wahrscheinlich am Besten)

Der schnellste und wahrscheinlich beste Ansatz besteht aus einer vorkalkulierten Tabelle und einer NBW Formel:

Mortality Annuities on Bernd Plumhoff

Sterblichkeitsrente (Excel, VBA)

Abstract

Komplexe Matrixformel (Schlechteste Wahl)

Einfache Benutzerdefinierte Funktion mit VBA (Bessere Wahl)

Vorkalkulierte Tabelle und eine NBW Formel (Wahrscheinlich am Besten)