Bei untenstehendem Code wird, wenn ich in die Textbox11 eine 1 oder eine 9 eingebe, die Zahl als 001 oder 009 angezeigt.
Ich kann jedoch keine 10 z.B. eingeben.
Möchte ich eine 10 eingeben so erhalte ich als Ergebnis eine 001.
Es sollte jedoch der Wert 010 eingetragen werden.
Gäbe es z.b. einen Wert von 102 dann soll auch 102 eingetragen werden.
Wo habe ich hier bitte im Code den Fehler?
Danke
Josef
Private Sub TextBox11_Change()
TextBox11 = Format(Application.WorksheetFunction.Substitute(TextBox11, "0", ""), "000")
If IsNumeric(TextBox11.Text) Then
TextBox12.Text = Format(Val(TextBox11.Text) * 2, "000")
Else
TextBox12.Text = ""
End If
End Sub