Textbox mit 1000er-Trennzeichen - Ausgabefehler
05.09.2014 10:25:18
Florian
ich habe eine Userform, die mehrere TextBoxen enthält, in die Zahlen eingegeben werden. Zu besseren Lesbarkeit wurde von den Nutzern ein 1000er-Trennzeichen gewünscht. Soweit so gut. Nun ist es aber so, dass sich die Ausgabewerte der TextBoxen unterschiedlich verhalten, obwohl der Code der TextBoxen und auch die Variablendeklaration gleich ist.
Beispiel:
Private Sub textbox4_afterupdate()
TextBox4 = Format(TextBox4, "#,###")
If IsNumeric(TextBox4.Value) = True Then
bestMenge = TextBox4.Value
Else
bestMenge = ""
MsgBox "keine gültige Zahl!"
TextBox4.SetFocus
End If
End Sub
Private Sub textbox6_afterupdate()
TextBox6 = Format(TextBox6, "#,###")
If IsNumeric(TextBox6.Value) = True Then
FertigungsMenge = TextBox6.Value
Else
FertigungsMenge = ""
MsgBox "keine gültige Zahl!"
TextBox6.SetFocus
End If
End Sub
Wenn nun in TextBox4 und TextBox6 Werte größer 1000 eingegeben werden, dann erscheinen die auch mit Trennpunkt. Wenn ich jetzt aber die Werte aus Textbox4 in die Zelle A1 schreibe und die Werte aus TextBox6 in die Zelle B1 schreibe passiert folgendes:
TextBox4 = 10.000 => A1 = 10
TextBox6 = 10.000 => B1 = 10000
Woran liegt es denn, dass Excel aus zwei gleichen Eingaben verschiedene Ausgaben macht? Und noch viel wichtiger: wie kann ich das in den Griff bekommen?
Danke schon mal fürs Lesen und für eure Hilfe
Florian