Textbox nach 4 Zahlen ein "-" setzen
15.05.2018 09:06:54
Tim
ich möchte gern eine Textbox begrenzen, dabei soll es möglich sein 4 Zahlen einzugeben, anschließend einen Bindestrich zu setzen und dann wieder 4 Zahlen zu zulassen.
Bsp.:1111-1111
Dazu habe ich folgendes gefunden, scheitere jedoch an der Anpassung:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44, 46
If InStr(1, TextBox1, ",") = 0 Then
KeyAscii = 44
Else
KeyAscii = 0
End If
Case 45
If Len(TextBox1) > 0 Then KeyAscii = 0
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub