Berechnungen in Textfelder
22.08.2007 09:49:50
Benschi
Irgendwie komme ich auf keine optimale Lösung. Ich hoffe jemand kann mir helfen. Folgende Ausgangslage:
Ich fülle das Textfeld txtZahlbetrag während UserForm_Initialize mit einem bestimmten Zellwert. Das läuft soweit, nun möchte ich, dass im Textfeld txtZahlung der User einen Betrag eingeben kann, der mit dem txtZahlbetrag summiert wird. Das geht auch noch, aber wenn der User die Zahlung korrigiert oder löscht, sollte der Zahlbetrag ebenfalls wieder den Standardwert enthalten, d.h. der in der Zelle.
Kann mir jemand einen Tipp geben, wie ich den Standartwert wieder zurückerhalte? Folgenden Code habe ich schon mal gebastelt:
Private Sub txtZahlung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Betrag As Currency, Zahlbetrag As Currency, Zahlung As Currency, Saldo As Currency
If txtZahlung.Value = "" Or 0 Then Exit Sub
Betrag = CCur(txtBetrag.Text)
Zahlbetrag = CCur(txtZahlbetrag.Text)
Zahlung = CCur(txtZahlung.Text)
Saldo = CCur(txtSaldo.Text)
If IsNumeric(txtZahlung.Value) Then
Zahlbetrag = Zahlbetrag + Zahlung
txtZahlbetrag.Value = Zahlbetrag
Else
MsgBox "Geben Sie bitte einen gültigen Betrag ein.", vbExclamation
End If
End Sub
Vielen Dank!
Gruss
Benschi
Anzeige