Textbox soll definierte Eingabemöglich. beinhalten
02.07.2019 10:31:54
Sören
ich möchte gerne, das meine TextBox1 nach 1 oder 3 zahlen ein Bindestrich (-) enthält und vor- und nacher 1-3 zahlen eingetragen werden müssen. Also an 4ter stelle muss spätestens ein Bindestrich kommen. Das nur zahlen und ein Bindestriche verwendet werden kann, habe ich so gelöst.
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Nur Zahlen dürfen und Bindestrich dürfen eingetragen werden
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("-")
If InStr(tb1, ",") 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Beispiel:
1-2
10-20
100-200
1-100
etc.
Ist dies Möglich bzw. kann man einen Code schreiben der sagt, dass nur ein Bindestrich nach der max 4 stelle kommen muss? Wenn ja, könnte mir da einer mit einem Code helfen?
Gruß Sören
Anzeige