Hallo zusammen,
ich bräuchte noch einmal Hilfe. Und zwar benötige ich nun noch eine Funktion, welche mir mittels Regex eine bestimmte Zahlenfolge sucht und ausgibt. Diese hat 9 Stellen und beginnt mit 2 oder 8. Den Regex Suchstring habe ich bereits zusammengefummelt, aber nun weiß ich nicht wie ich ihn in meinen Code unterbringe.
Bisheriger Code(teil):
For Spalte = 1 To Anzahlspalten
Set rng = Worksheets("Wordings").Columns(Spalte)
'Suchargumente auslesen
strPattern = WorksheetFunction.TextJoin("|", True, rng)
'meta character im Suchmuster maskieren
.Pattern = "([?*+.\\()\[\]])"
strPattern = .Replace(strPattern, "\$1")
'Suchmuster abschließen
strPattern = "(?:" & strPattern & ") ([^\r\n]+)"
'Suchmuster & Einstellungen setzen
.Global = False 'nur ein/ersten Treffer
.Pattern = strPattern
'Berichtsnr. einlesen
If Spalte = 1 Then
With .Execute(strTXT)
If .Count > 0 Then
rngLastRow.Cells(1, Spalte).Value = .Item(0).SubMatches(0) 'Berichtsnr in Spalte A speichern
ElseIf .Count = 0 Then
Hier müsste jetzt meine Abfrage rein:
Wenn strPattern2 = "([2,8] \d \d \d \d \d \d \d \d)" gefunden wird, dann schreibe dies in
rngLastRow.Cells(1, Spalte).Value
End If
End With
End If
Vielleicht kann mir ja jemand helfen.
Vielen Dank!
Gruß Andreas
|