zweites Komma nicht zulassen
06.11.2017 15:33:17
TOYY1
ich habe ein kleines Anliegen und wollte euch hierbei um Hilfe bitten. Ich habe auf einer UserForm mehrere Textboxen bei denen ich nur Zahlen eingebe. Dafür verwende ich die unten stehende Sub. Nun ist es aber so, dass ich bspw. beliebig viele Kommas eingeben kann z.B.: 2,,,,5,,2
Gibt es eine Möglichkeit nur ein Komma zuzulassen?
Private Sub myTxtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44 '44 Komma
Case Else: KeyAscii = 0
End Select
End Sub
Frank