Office: Wörter in Textboxen per Makro suchen

Excel 2002

Schönen guten Tag!

In mehreren Tabellen befinden sich je mehrere Textboxen (Textfelder).
Der Inhalt lautet zum Beispiel:

"Länder: Deutschland, Österreich, Schweiz, Italien, usw
Städte: Wien, Graz, Linz, München, usw"

Mit folgendem Makro möchte ich einzelne Ländernamen oder Städtenamen per Dialogfeld suchen:

Sub Suchen_alle_Tabellen()
Dim wks As Worksheet
Dim Shpe As Shape
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets

For Each Shpe In wks.Shapes
If Shpe.Type = msoTextBox Then
If Shpe.DrawingObject.Caption Like strFind Then
MsgBox "Suchtext gefunden in: " & Shpe.Name & " " & wks.Name
End If
End If
Next
Next wks
strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
End Sub

Hiermit bekomme ich jedoch nur dann ein Suchergebnis, wenn im Suchfeld des Dialogfeldes der gesamte Text der Textbox eingegeben wird.

Mit

If Shpe.DrawingObject.Caption Like "*" & strFind & "*" Then

bekomme ich auch ein Suchergebnis für zB "Deutschland", wenn ich nur "Deutsch" ins Suchfeld eingebe.

Ich möchte aber nur ein Suchergebnis, wenn das gesuchte einzelne Wort mit dem gefundenen Wort als Ganzes übereinstimmt.
Z.B.:
Ich suche "Deutsch", dann kein Suchergebnis,
ich suche "Norddeutschland", dann kein Suchergebnis,
ich suche "Deutschland", dann ein Suchergebnis.

Weiß jemand Rat?

Besten Dank!

:)

 

Nimm das Komma mit rein...

If Shpe.DrawingObject.Caption & "," Like "*" & strFind & ",*" Then

siehe auch:

 

Sieht schon sehr gut aus, aber:

Länder: Deutschland, Österreich, Schweiz, Italien
Städte: Wien, Graz, Linz, München

Italien wird nicht gefunden weil kein Komma folgt und weitere Einträge folgen.
München wird jedoch gefunden. Hier folgt auch kein Komma, aber das Wort ist das letzte des Textfeldes.

 

Dann alternativ noch den Zeilenumbruch chr(10) aufnehmen

If Shpe.DrawingObject.Caption & "," Like "*" & strFind & ",*" or Shpe.DrawingObject.Caption & "," Like "*" & strFind & chr(10) & "*" Then

 

Absolut perfekt!
Eine Frage hätte ich noch:

Wenn zB das Wort "München" in mehreren Textboxen gefunden wird, möchte ich in einer MsgBox die jeweils erste Textzeile der betreffenden Textboxen sowie die Namen der zugehörigen Tabellenblätter, in denen sich die Textboxen befinden, aufgelistet haben.

 

Nimm eine Variable vom Typ text, die Du bei jedem Treffer entsprechend erweiterst

sinngemäß:

strErgebnis = strErgebnis & vbcrlf & neuerTreffer

Die jeweils erste Textzeile kannst Du Dir mittels Left() und Instr() - bzw Split() beim Zeilenumbruch ermitteln

 

Besten Dank, aber deine letzte Antwort ist mir als Laie unklar.
Ich habe nun doch Probleme mit der weiter oben besprochenen Thematik:
In meiner Originaldatei befinden sich ca 50 Tabellenblätter mit je 1 bis 10 Textfeldern. Beim Suchen eines Wortes wird es in den Textfeldern ab den zweiten und folgenden Zeilen nicht immer gefunden. Wenn ich ein nicht gefundenes Wort in die erste Zeile im Textfeld setze, dann wird es gefunden. Da dürfte mit dem Zeilenumbruch etwas schiefgehen.

 

Ich habe soeben entdeckt, warum manche Wörter im Textfeld nicht gefunden werden:
Die Suche umfasst nur die ersten ca. 250 Zeichen inkl. Leerzeichen.
Könnte man diese Begrenzung erhöhen?

 

Vielleicht kannst Du mal erklären, was Du überhaupt vor hast; ich habe das Gefühl, daß Dein Datenmodell 'überarbeitungswürdig' erscheint

Anstatt caption Like, schau Dir die Funktion Instr() an

 

Also hier ein Beispiel eines meiner Textfelder:

"Länder: BRD, Portugal, Frankreich, Niederlande, Kolumbien, Panama, Ecuador, Peru, Chile, Großbritannien, Französisch Polynesien, Cookinseln, Tonga, Neukaledonien, Australien, Papua Neuguinea, Indonesien, Malaysien, Philippinen, Taiwan, Japan, Russland, Südkorea, China, Vietnam, Singapur, Thailand"

Das Wort "Russland" wird noch gefunden, "Südkorea" bis "Thailand" werden nicht gefunden, weil diese Wörter mehr als ca. 250 Zeichen vom Beginn des Textfeldes entfernt sind.
Mit der Funktion Instr() komme ich mangels Kenntnissen nicht klar. Dennoch danke für den Tipp. LG

 

Dafür gibt es die F1-Taste im VBA Editor - und Google
Ein bisschen Eigeninitiative erwarte ich schon von Dir

Und meine Frage hast Du auch noch nicht beantwortet

 

Hier die Antwort: Ich habe vor, mit dem obigen und durch dich optimierten Makro in den Textfeldern meiner Excel-Reisemappe nach einem bestimmten Wort zu suchen und angezeigt bekommen, in welchen Textfeldern sich dieses Wort befindet.

 

Das steht schon in Beitrag #1; von daher ziehe ich mich jetzt besser zurück.

 

Ja danke.
Vielleicht gibt es noch andere Experten?

 

Mit regulären Ausdrücken kann man auch gezielt Worte ermitteln und also identifizieren.

Es könnte aber sein, dass das etwas zu aufwändig ist, zumal aufzustellende Suchmuster äußerst präzise arbeiten und daher eine Erstellung auf ein einzelnes (sich änderndes) Beispiel, das dann vmtl. Realität nur bruchstückhaft bis gar nicht darstellt, eine Aufgabe für jene wäre, die nur Langeweile totzuschlagen haben.

Ein Experte würde sich mit Finden und Weiterverwenden der Fundergebnisse beschäftigen, nicht mit der Suche an sich.

Idealerweise würde man diesen genannten Datenhaufen aufräumen zu einer (=> 1!) verwendungsfähigen Tabelle.
Alternativ würde man mit einem einmaligen Durchlauf über alles sich ein Stichwortverzeichnis anlegen: Einzelbegriff, Zelle, Arbeitsblatt.
Falls das schwierig oder zeitraubend sein sollte: Bedanke Dich bei jenem, der einen solchen Datenhaufen "wohlüberlegt" erzeugt hat.

Dann brauchte man einfach nur filtern, bspw. mit dem Autofilter.