Regex VBA

Guten morgen,
ich bin auf der Suche nach einem Regex, welcher mir ermöglicht zwischen folgenden Möglichkeiten zu unterscheiden.
Ich habe Phasen welche ABC-10 heißen, es könnte jedoch auch mal ABCD heißen aber länger sind die in der Regel nicht. (3-4 stellige Buchstabenfolge | - (Bindestrich) | 2 stellige Zahlenfolge)
Dann habe ich Pakete welche ABC-10-010 heißen (3-4 stellige Buchstabenfolge | - | 2 stellige Zahlenfolge | - | 3 stellige Zahlenfolge).
Und zuletzt gibt es noch Meilensteine, welche ABC-10-MS01 heißen (3-4 stellige Buchstabenfolge | - | 2 stellige Zahlenfolge | - | 2 Buchstaben (die IMMER MS sind) gefolgt von einer 2 stelligen Zahl).
Ich hoffe es ist einigermaßen verständlich.
Desweiteren würde ich gern wissen wie ich diesen Vergleich anstelle gibt es sowas wie matchesPattern wie in Java?
Würde mir das so vorstellen als Pseudocode:


If .Cells(i,1).Value matches stringPattern

Und das durch eine For Schleife durchlaufen lassen.
Gruß Niko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Regex VBA

15.06.2017 10:27:37

Niko

AW: Bsp-Datei

15.06.2017 10:55:01

Fennek

AW: Bsp-Datei

15.06.2017 11:09:17

Niko

AW: Ziel

15.06.2017 11:17:34

Fennek

AW: Ziel

15.06.2017 11:22:42

Niko

wieso ein 2. Beitrag zum selben Thema?

15.06.2017 11:39:26

yummi

AW: Regex VBA

15.06.2017 12:54:49

EtoPHG

AW: Regex VBA

15.06.2017 12:58:33

Niko

AW: Regex VBA

15.06.2017 13:38:51

EtoPHG

AW: Regex VBA

15.06.2017 13:53:12

Niko

AW: Regex VBA

15.06.2017 14:29:37

EtoPHG

Hallo Niko,
Such dir aus, was du brauchst:

Option Explicit
' Code in ein allgemeines Modul
' (unter Extras - Verweise : Microsoft VBScript Regular Expression V5.5 einbinden
' Funktion gibt TRUE zurück, wenn ein Test-Input einem Regex-Pattern entspricht
' andernfalls FALSE. Kann auch als Formel in Tabelle verwendet werden
Public Function myRegEx(TextInput As String, regexPattern As String) As Boolean
Dim regEx As New RegExp
Dim matches
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = regexPattern
End With
If regEx.test(TextInput) Then
Set matches = regEx.Execute(TextInput)
myRegEx = (matches(0).Value = TextInput)
End If
End Function
' Test mit Zellinhalten mit Bestimmen des Typs
Sub testAufTyp()
Dim iRow As Long
With ActiveSheet
For iRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}") Then
MsgBox Cells(iRow, 1).Address & " Typ 1"
End If
If myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}-\d{3}") Then
MsgBox Cells(iRow, 1).Address & "Typ 2"
End If
If myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}-[M][S]\d{2}") Then
MsgBox Cells(iRow, 1).Address & "Typ 3"
End If
Next iRow
End With
End Sub
' Test mit Zellinhalt nur ob gültig
Sub TestOK()
Dim iRow As Long
With ActiveSheet
For iRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}") Or _
myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}-\d{3}") Or _
myRegEx(.Cells(iRow, 1).Text, "[a-zA-Z]{3,4}-\d{2}-[M][S]\d{2}") Then
MsgBox Cells(iRow, 1).Address & " ist gültig"
Else
MsgBox Cells(iRow, 1).Address & " ist ungültig", vbExclamation
End If
Next iRow
End With
End Sub

Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Regex VBA

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread