Microsoft Office Tutorials and References
In Depth Information
4.2.3 Finanzen
Listing 4.8: Benutzerdefinierte Funktion zur Zinsberechnung
Function Zinszahlung(Mittelfluss, Darlehensstand, Zinssatz, Laufzeit)
Select Case Mittelfluss
Case "monatlich"
Zinszahlung = Darlehensstand * Zinssatz / 12
Case "vierteljährlich"
Zinszahlung = Darlehensstand * Zinssatz / 4
Case "halbjährlich"
Zinszahlung = Darlehensstand * Zinssatz / 2
Case "jährlich"
Zinszahlung = Darlehensstand * Zinssatz / 1
End Select
If Laufzeit = "" Then Zinszahlung = ""
End Function
Auch die Tilgungsraten werden über eine benutzerdefinierte Funk-
tion berechnet. Die Formel prüft zunächst, ob eine Laufzeit und
keine Tilgungsaussetzung vorliegt, und berechnet dann die Raten
mithilfe von Zwischenrechnungen, die mit der finanzmathematischen
Funktion RMZ() arbeiten.
Listing 4.9: Benutzerdefinierte Funktion für Tilgungszahlungen.
H17:
=WENN(D17="";"";WENN(D17<=$H$11;0;Tilgungszahlung($G$3;$H$4;$S$5;$H$9;G17;$R$5;$
R$6;$R$7;$R$8)))
Function Tilgungszahlung(Darlehensart, Darlehenssumme, Tilgungsdarlehen, _
Mittelfluss, Zinszahlung, Annuität_Monat, Annuität_Quartal, _
Annuität_Halbjahr, Annuität_Jahr)
Select Case Darlehensart
Case "Annuitätendarlehen"
Select Case Mittelfluss
Case "monatlich"
Tilgungszahlung = Annuität_Monat - Zinszahlung
Case "vierteljährlich"
Tilgungszahlung = Annuität_Quartal - Zinszahlung
Case "halbjährlich"
Tilgungszahlung = Annuität_Halbjahr - Zinszahlung
Case "jährlich"
Tilgungszahlung = Annuität_Jahr - Zinszahlung
End Select
Case "Abzahlungsdarlehen"
Tilgungszahlung = Tilgungsdarlehen
Case "Festdarlehen"
Tilgungszahlung = 0
End Select
End Function
Search JabSto ::




Custom Search