Berechnung vom Endkapital
06.06.2008 20:00:00
selin
ALso die ComboBoxen laufen jetzt.
Wenn ich jetzt den TextBox Anfangskapital,Zinssatz,Sparrate,Laufzeit habe und in den ComboBoxen
z.B. Januar und bei comboBox2 Jährliche Verzinsung eintippe. Wie kriege ich mein endkapital berechnet.
Habe schon folgendes eingetppit, nichts läuft:
Private Sub CommandButton_Click()
Dim K0 As Double
Dim Kt As Double
Dim Lz As Double
Dim r As Double
If OptEnde.Value = True Then
TxtEnde.Enabled = False
K0 = TxtAnfang.Value
Lz = TxtLaufzeit.Value
r = TxtZinsen.Value / 100
TxtEnde.Value = KEndeexp(K0, Lz, r)
ElseIf wahl1.Value = True Then
TxtEnde.Enabled = True
Kt = TxtEnde.Value
Lz = TxtLaufzeit.Value
r = TxtZinsen.Value / 100
TxtEnde.Value = KAnfangexp(Kt, Lz, r)
End If
End Sub
Blick gerade gar nicht mehr durch.
Danke
Anzeige