Format überprüfen
28.11.2016 10:33:17
Daniel
ich würde gerne folgendes Format in Zelle B14 Überprüfen K-12345-12
mit einer function klappt es wie folgt:
Function KTest(Tx As String)
Verweis auf MS VBScript Regular Expression 5.5
Dim Reg As RegExp
Set Reg = CreateObject("vbscript.regexp")
Reg.Pattern = "K-\d{5}-\d{2}"
KTest = Reg.test(Tx)
If KTest = False Then
MsgBox ("Bitte Eingabe überprüfen")
End If
End Function
Ich würde es aber gerne in einer "Private Sub" machen da ich durch eine If Anwendung mehrere Fälle prüfen möchte.
Private Sub worksheet_change(ByVal target As Range)
Dim tx As String
Dim Reg As RegExp
Set Reg = CreateObject("vbscript.regexp")
If target.Row = 14 And target.Column = 2 And Range("B14").Value 0 Then
Reg.Pattern = "K-\d{5}-\d{2}"
KTest = Reg.test(tx)
MsgBox (KTest)
If KTest = False Then
If Range("B14").Value 0 Then
Range("B14:E14").Select
Selection.ClearContents
'Range("A4").Select
'End If
MsgBox ("Bitte Eingabe überprüfen")
End If
End If
End Sub
Gruß
Daniel
Anzeige