Format in TextBox
14.10.2004 16:37:10
walter
hatte vor einem Monat ein Problem mit dem Forum gelöst.
Hier mein Makro:
Private Sub TextBox25_AfterUpdate()
Worksheets("Kulanzblatt-VK").Range("M20") = TextBox25.Value
TextBox25.Value = Format(Worksheets("Kulanzblatt-VK").Range("M20").Text, ("0.0 %"))
TextBox25.Value = WorksheetFunction.Substitute(TextBox25.Value, ",", ".")
End Sub
Wenn ich mit der "Enter" Taste bestätige, wird Richtig eingegeben, mit der
"TAB" Taste zeigt anstelle 1,2 % 120 % an.
Hatte auch schon anstelle Value, Text eingegeben und auch weggelassen, keine
Änderung.
Wieso ?
Gruß Walter
Anzeige