VBA - Formulare - TextBox-Wert formatieren
14.10.2004 14:18:14
Cassiopeia
ich habe folgendes Problem:
ich habe eine Schaltfläche (CommandButton) programmiert, der die eingetragenen Zahlenwerte von 2 TextBoxen addiert und wiederum in einer weiteren Textbox (txtBerechnung) auswerfen soll. Das funktioniert auch bis dahin. Nur soll der Wert mit 1.000er-Trennstrich dargestellt werden. Und das funktioniert nicht. Bei den anderen TextBoxen habe ich das hinbekommen. Sobald man das Textfeld verläßt wird die entsprechende Formatierung vorgenommen.
Aber warum funktioniert es bei der nachfolgenden Sub nicht?
Private Sub cmdAdd_Click()
Dim dValueA As Double, dValueB As Double
Dim dBerechnung As Double
dValueA = Format(txtMwSt.Text, "#,###.00")
dValueB = Format(txtSonstigeKosten.Text, "#,###.00")
txtBerechnung.Value = dValueA + dValueB
dBerechnung = Format(txtBerechnung.Text, "#,###.00")
End Sub
Wär schön, wenn mir jemand helfen könnte.
Vielen Dank schon einmal im Voraus.
Anzeige