Herbers Tilgungsrechner - Tipp_0411
21.11.2004 07:46:06
Erich M.
von Herber wurde ein sehr guter Tilgungsrechner entwickelt. Eine Korrektur
der Berechnung wäre sinnvoll bei Ermittlung der Rate mit Berücksichtigung
der Rundung. Aber wie geht die Rundung auf 2 Nachkommastellen??
Meine Versuche sind gescheitert:
Option Explicit
Private Sub optProzent_Change()
Me.Unprotect "HWH"
If optProzent.Value = True Then
Range("Rate").Formula = "=(Darlehen*Zinssatz/100/intervall)+(Darlehen/intervall*Prozent/100)"
' Range("Rate").Formula = "=(Runden((Darlehen*Zinssatz/100/intervall)+(Darlehen/intervall*Prozent/100);2)"
Range("Prozent").Value = Range("Prozent").Value
Range("Rate").Locked = True
Range("Prozent").Locked = False
Else
Range("Prozent").Formula = "=((Rate-(Darlehen*Zinssatz/100/intervall))/Darlehen*intervall)*100"
Range("Rate").Value = Range("Rate").Value
Range("Prozent").Locked = True
Range("Rate").Locked = False
End If
Me.Protect "HWH", userinterfaceonly:=True
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich