VBA Suche mit String als Rückgabewert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub searchString() Dim rng As Range, strSearch As String, strReturn As String Dim varSplit As Variant, lngIndex As Long strSearch = "data * quality" With Sheets("Tabelle1") 'Tabellenname anpassen! Set rng = .Columns(1).Find(What:=strSearch, Lookat:=xlPart, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False) If Not rng Is Nothing Then varSplit = Split(rng.Text, ".") For lngIndex = 0 To Ubound(varSplit) If LCase$(Trim$(varSplit(lngIndex))) Like LCase$(strSearch) Then MsgBox Trim$(varSplit(lngIndex)) Exit For End If Next End If End With Set rng = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hey,
vielen Dank für die schnellen Antworten. Leider lösen sie nicht mein Problem. -Ich muss wohl etwas mehr ins Detail gehen:
Ich arbeite an einem Programm das Zelleninhalte nach Textmustern durchsucht.
Die Textmuster können vom Nutzer selbst festgelegt werden. Denkbar sind fixe Textmuster ("all relevant data collected") oder variable Textmuster ("required data * quality"). Ein Textmuster wie "reference year *", mit einer Wildcard am Ende oder am Anfang, ergibt hingegen keinen Sinn und darf daher nicht gewählt werden.
-- Folglich reicht es nicht aus die Positionen vom ersten und letzten Wort des Textmusters zu suchen, da erst die Kombination mit anderen Wörter ausschlaggebend sein kann.
Auch die Zelleninhalte sind variabel.
-- Eine Trennung nach Satzzeichen ist daher auch nicht möglich.
Woher kommt meine Hoffnung, dass eine Funktion existiert, die mir den gefundenen String zurückgibt? -Die Suchen&Ersetzen-Funktion von Excel muss etwas vergleichbares machen: Ich kann nach einem String mit Wildcard suchen und durch einen anderen String ersetzen. Dabei wird in Abhängigkeit vom gefundenen String ein anderer Text ersetzt:
Zelleninhalt1: "The reference year is 2010. Data is of high quality. Data valid for Germany."
Zelleninhalt2: "Data collection is complete. Data is of low quality. Find more information in Annex A"
Such-Text: "Data * quality"
Ersetzen: Test123
neuer Zelleninhalt1: "The reference year is 2010. Test123. Data valid for Germany."
neuer Zelleninhalt2: "Data collection is complete. Test123. Find more information in Annex A"
Nochmals Danke für die Hilfe!
VG Christoph

Sub searchString() Dim objRegEx As Object, objSubMatch As Object, objMatch As Object Dim rng As Range, strSearch As String, strReturn As String Dim varSplit As Variant, lngIndex As Long strSearch = "data*quality" If strSearch Like "*[*]*" Then With Sheets("Tabelle1") 'Tabellenname anpassen! Set rng = .Columns(1).Find(What:=strSearch, Lookat:=xlPart, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False) If Not rng Is Nothing Then Set objRegEx = CreateObject("VBScript.RegExp") With objRegEx .Pattern = "(?=" & Trim$(Split(strSearch, "*")(0)) & "\s).*?(\s+" & Trim$(Split(strSearch, "*")(1)) & ")" .IgnoreCase = True .Global = True Set objMatch = .Execute(rng.Text) If objMatch.Count > 0 Then MsgBox objMatch(0) End With End If End With Else MsgBox "Ungültiger Suchstring!" End If Set rng = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub suchInZeile() Dim regex As New RegExp, Fundstellen As MatchCollection, Fund As Match Dim myString As String myString = "Zeile A" & vbNewLine & "Zeile B" regex.Pattern = "\w$" regex.MultiLine = True regex.Global = True Set Fundstellen = regex.Execute(myString) Debug.Print Fundstellen.Count For Each Fund In Fundstellen Debug.Print Fund Next End Sub

Beliebteste Forumthreads (12 Monate)

VBA Suche mit String als Rückgabewert

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

139 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Suche mit String als Rückgabewert

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

139 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread