Wenn Backspace Taste dann
18.05.2018 09:54:42
Willi
ich möchte, dass in einer Textbox nach dem vierten Zeichen automatisch einen Bindestrich eingefügt wird. Das funktioniert auch mit folgendem Code:
Private Sub TextBox1_Change()
If Len(Me.TextBox1) = 4 Then
Me.TextBox1 = Me.TextBox1 & "-"
End If
End Sub
Wenn aber der Bindestrich gelöscht wird, soll auch gleichzeitig das vierte Zeichen gelöscht werden. Wie kann ich das machen?Gruß,
Willi