Nur Zwei Punkte in Textbox erlauben
04.08.2019 11:37:08
Urs
Ich möchte mit dem KeyPress-Ergeignis in eine Textbox vermeiden, dass der Benutzer mehr als zwei Punkte eingeben kann.
Dass mann nur einen Punkt eingeben kann habe ich mit folgendem Code geschafft:
Private Sub txtDatum_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Nur Ziffern und ein Punkt sind erlaubt
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If InStr(1, txtDatum, ".", vbTextCompare) > 0 Then
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub
Ist das möglich?
Vielen Dank im voraus
Urs