Wort in String suchen
21.05.2015 12:02:05
Golem
mit folgendem Code suche ich Wörter aus einem Array in einem String.
Public Function Test(ByVal Verwendungszweck As String, Optional ByVal matchNr As Integer)
Dim regEx As Object
Dim Matches As Object
Dim i As Integer
Set regEx = CreateObject("Vbscript.Regexp")
On Error Resume Next
For i = 16 To 35
With regEx
.Pattern = Sonderz_entfernen(Umlaute_ersetzen(Cells(i, 12)))
.Global = True
.IgnoreCase = True
Set Matches = .Execute(Sonderz_entfernen(Umlaute_ersetzen(LCase$(Verwendungszweck))))
Test = Matches.Item(matchNr)
End With
Next
End Function
Sollte ein Wort aus dem Array im String gefunden werden, so wird das Wort angezeigt.
Funktioniert einwandfrei!
Ich benötige aber nicht das Wort, sondern die Position des Wortes im String würde mir
schon reichen.
Ich bekomme aber den Code nicht geändert, dass mir nur der Positionswert angezeigt wird.
Auch True oder False würden mir reichen.
Der Code mit RegEx sollte beibehalten werden.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner