Pattern gesucht
09.11.2012 15:11:53
Peter
ich suche ein Pattern zur Prüfung einer Eingabe in der Form 1234 x 1234
wobei die Zahlen vor und hineter dem " x " 1 - 4 stellig sein dürfen.
Geprüft soll im KeyPress Ereignis werden.
'
' So kann man "online" verhindern dass etwas anderes als Zahl x Zahl
' eingetragen wird.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Regex As Object
'Stop
Set Regex = CreateObject("vbScript.Regexp")
With Regex
' \d = erkennt Ziffern, + erkennt vorhergehendes Element ein- oder mehrmals
' [ x ] ein Blank x Blank muss folgen
' weitere Ziffern müssen folgen
.Pattern = "\d+[ x ]d+"
If .test(TextBox1.Text & Chr(KeyAscii)) = False Then KeyAscii = 0
End With
End Sub
Gruß Peter