Keine mehrfachen Kommas in Textbox zulassen
21.06.2006 00:48:15
Mark
ich möchte gerne in eine Textbox nur Zahlenwerte und ein Komma zulassen.
Der folgende Code funktioniert soweit, jedoch kann ich mehrere Kommas eingeben.
Wie kann ich das auch noch abstellen?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyBack, 44 ' 44 = Komma - Alle zulassen
Case Else
KeyAscii = 0
End Select
End Sub
Gruß
-Mark-
Anzeige