Zahlenformat: falsche Berechnung
30.08.2007 15:17:00
Benschi
Kann mir jemand anhand des Makros erklären, warum die das Zahlenformat manchmal mit Komma manchmal mit Punkt berechnet wird? Am Schluss kommt meist eine völlig falsche Zahl raus... Vielen Dank.
Private Sub txtBearZahlung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Berechnungen Beträge
Dim Betrag As Double, Zahlung As Double, Zahlbetrag As Double, Saldo As Double
'wenn Textfeld Zahlung 0 dann Prozedur verlassen
If txtBearZahlung = 0 Then Exit Sub
If IsNumeric(txtBearZahlung) Then
Betrag = txtBearBetrag
Zahlung = txtBearZahlung
Saldo = txtBearSaldo
If txtBearZahlbetrag = "" Then
Zahlbetrag = Zahlung
Saldo = Betrag - Zahlung
txtBearSaldo = Saldo
txtBearZahlbetrag = Zahlbetrag
Else
Zahlbetrag = txtBearZahlbetrag
Zahlbetrag = Zahlung + Zahlbetrag
txtBearZahlbetrag = Zahlbetrag
txtBearSaldo = Saldo - Zahlung
End If
'Zahlenformate
txtBearBetrag = Format(txtBearBetrag, "#,##0.00")
txtBearZahlbetrag = Format(txtBearZahlbetrag, "#,##0.00")
txtBearZahlung = Format(txtBearZahlung, "#,##0.00")
txtBearSaldo = Format(txtBearSaldo, "#,##0.00")
Else
'falsch keine nummerische Zahl eingegeben wurde, Fehlermeldung
MsgBox "Geben Sie bitte einen gültigen Betrag ein.", vbExclamation
txtBearZahlung.Text = "" 'Löscht Inhalt des Textfeldes
End If
End Sub