Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur ganzes Wort in String suchen

Forumthread: Nur ganzes Wort in String suchen

Nur ganzes Wort in String suchen
18.01.2020 10:43:30
Dirk
Hallo,
ich möchte den Namen des Berliner Bezirks "Mitte" in einer großen Textmenge finden, die sich in einer Excel-Tabellenspalte befindet. Dazu habe ich eine Funktion geschrieben, die mit der InStr-Funktion das gut erledigt. Aber es werden natürlich auch Wörter wie "mittendrin", "miteinander" etc. gefunden, die natürlich nicht gemeint sind.
Kennt jemand eine einfache Möglichkeit, um nur ganze Wörter zu finden? Also wenn der Such-String vorne und hinten durch ein Satzzeichen wie Leerzeichen, Komma, Punkt, Semikolon etc. oder durch den Anfang oder das Ende des Strings begrenzt ist?
Vielen Dank für eure Gedanken!
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur ganzes Wort in String suchen
18.01.2020 10:52:54
Nepumuk
Hallo Dirk,
so:
Public Sub Test()
    Dim objRegEx As Object, objMatch As Object
    Dim strText As String
    strText = "mittendrin, Berliner Bezirks Mitte in einer mitteinander"
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "\bmitte\b"
        .IgnoreCase = True
        Set objMatch = .Execute(strText)
    End With
    If objMatch.Count = 1 Then
        Call MsgBox(objMatch.Item(0))
    Else
        Call MsgBox("Nix gefunden")
    End If
End Sub

Gruß
Nepumuk
Anzeige
Alles Mitte
18.01.2020 11:59:30
lupo1
=(
LÄNGE(A1)-
LÄNGE(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(" "&A1&" ";"-Mitte ";" Mitte ");" Mitte ";" ");" Mitte,";" ,");" Mitte.";" .");" Mitte;";" ;");" Mitte!";" !");" Mitte?";" ?"))+2)/
LÄNGE("Mitte")
sollte eigentlich 99,9% erledigen, ohne VBA
Anzeige
AW: Alles Mitte
19.01.2020 22:11:38
Dirk
Hallo Nepumuk,
ja, RegEx ist die Lösung, die ich brauchte, vielen Dank!!! Meine komplette Funktion sieht nun so aus:
Public Function Mitte(txt As String) As String
Dim result As String
' den Ortsteil "Mitte" gesondert behandeln, da das Wort in vielen anderen vorkommt
' Über Regular Expressions nur nach ganzen Wörtern suchen:
Dim objRegEx As Object, objMatch As Object
Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
.Global = True
.Pattern = "\bmitte\b"
.IgnoreCase = True
Set objMatch = .Execute(txt)
End With
If objMatch.Count = 1 Then
result = result & " Mitte"
End If
' die übrigen Ortsteilnamen dürfen auch in anderen Wörtern vorkommen (z. B. "Weddinger ...") _
If InStr(1, LCase(txt), "wedding") Then result = result & " Wedding"
If InStr(1, LCase(txt), "gesundbrunnen") Then result = result & " Gesundbrunnen"
If InStr(1, LCase(txt), "moabit") Then result = result & " Moabit"
If InStr(1, LCase(txt), "tiergarten") Then result = result & " Tiergarten"
Mitte = LTrim(result)
End Function

Anzeige
AW: Alles Mitte
19.01.2020 22:16:28
Dirk
Hallo Lupo1,
da ich nicht nur nach Mitte, sondern auch noch nach zig anderen suchen muss, ist VBA doch eleganter und bei meiner Riesenliste mit 60.000 Zeilen weniger ressourcenfressend.
Ganz herzlichen Dank auch für Deine Hilfe!
AW: Nur ganzes Wort in String suchen
19.01.2020 22:33:48
Dirk
Hallo Nepumuk,
ja, RegEx ist die Lösung, die ich brauchte, vielen Dank!!! Meine komplette Funktion sieht nun so aus:
Public Function Mitte(txt As String) As String
Dim result As String
' den Ortsteil "Mitte" gesondert behandeln, da das Wort in vielen anderen vorkommt
' Über Regular Expressions nur nach ganzen Wörtern suchen:
Dim objRegEx As Object, objMatch As Object
Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
.Global = True
.Pattern = "\bmitte\b"
.IgnoreCase = True
Set objMatch = .Execute(txt)
End With
If objMatch.Count = 1 Then
result = result & " Mitte"
End If
' die übrigen Ortsteilnamen dürfen auch in anderen Wörtern vorkommen (z. B. "Weddinger ...") _
_
If InStr(1, LCase(txt), "wedding") Then result = result & " Wedding"
If InStr(1, LCase(txt), "gesundbrunnen") Then result = result & " Gesundbrunnen"
If InStr(1, LCase(txt), "moabit") Then result = result & " Moabit"
If InStr(1, LCase(txt), "tiergarten") Then result = result & " Tiergarten"
Mitte = LTrim(result)
End Function

Anzeige
AW: Nur ganzes Wort in String suchen
18.01.2020 11:36:05
Daniel
Hi
Wenn du mit Instr suchst, kannst du folgendes tun:
Erweitere den Suchbegriff um das Worttrennzeichen " " und suche nach " Mitte ".
Ggf muss man vorher noch im durchsuchten Text die Satzzeichen, welche ja auch direkt nach dem Wort folgen können, durch Leerzeichen ersetzen.
Wenn das gesuchte Wort auch am Anfang oder Ende stehen kann, muss man dort auch noch Leerzeichen anfügen, bevor man die Suche durchführt.
Zusätzlich kann man auch Instr so einstellen, dass die Groß/Kleinschreibung berücksichtigt wird.
Gruß Daniel
Anzeige
AW: Nur ganzes Wort in String suchen
19.01.2020 22:30:47
Dirk
Hallo Daniel,
danke für den Tipp, verwende ich an anderer Stelle auch schon. geht hier aber nicht, weil der Begriff nicht gefunden werden würde, wenn er am Anfang des Strings steht. Die RegEx-Lösung von Nepumuk war aber zielführend.
Vielen Dank für Deine Mithilfe!
Aua das tut weh
20.01.2020 08:07:11
Daniel
Lesen ist nicht so dein ding, oder?
Lies dir meinen Beitrag bitte nochmal vollständig durch und überdenke deine Antwort.
Gruß Daniel
Anzeige
AW: Aua das tut weh
20.01.2020 22:38:04
Dirk
Stimmt, habe ich übersehen, wäre auch gegangen, sorry.
;

Forumthreads zu verwandten Themen

vba: teilstring suchen und kopieren
Jonathan

Hallo zusammen,
in einer Spalte A meiner Tabelle können in einer Zelle mehrere, durch Komma getrennte, Nummern vorkommen.
Die länge wie auch die Anzahl der verschiedenen Nummern in einer Zelle ist unterschiedlich.
In den Zellen A3-A5 stehen die zu suchenden Nummern.
Nun soll die...
10.04.2010 15:20:40
Thread-ID: 1150922
4 Beiträge
Zeile nach Wort durchsuchen
Anton

Hallo,
und zwar gehts darum, dass ich ein makro brauch, dass meine Tabelle nach dem Wort Warnung durchsucht, und wenns das gefunden hat, dann soll er dahin springen..
Danke im Voraus!
17.02.2011 11:13:15
Thread-ID: 1201401
9 Beiträge
Tabelle nach Wörtern durchsuchen und Kommentar ein
Steffen

Hallo,
ich habe ein Problem beim Programmieren von VBA in Excel.
Ich suche eine Möglichkeit ein Excel Datei mit einer Referenz-Excel-Tabelle (in der bestimmte Wörter stehen) zu vergleichen und die gefundenen Wöter in der durchsuchten Datei mit Kommentaren, welche ebenfalls in der Refere...
11.03.2013 14:50:08
Thread-ID: 1303194
2 Beiträge
Anzeige
VBA - Teilstring suchen und Werte zuordnen
Askman

Hallo,
würde mich über eure Hilfe freuen:
Habe diverses mit Formeln probiert, ist aber bei 10.000 Zeilen zu langsam.
Daher benötige ich ein Makro für: Teilstring (aus bestimmter Spalte) suchen in Gesamtwert(A2:A10000)und nebenstehende Zellen(von Teilstring) zuordnen.
siehe meine...
05.04.2013 16:00:20
Thread-ID: 1307482
5 Beiträge
Anzeige
Kommentare nach best. Wörtern durchsuchen
Hartmut

Hallo zusammen,
gibt es eine einfache und schnelle Möglichkeit um in einem Tabellenblatt, wo Kommentare hinterlegt sind, diese nach bestimmten Wörtern zu durchsuchen.
Z.B. in einer Tabelle sind mehrere hundert Kommentare hinterlegt und ich möchte jeden dieser Kommentare z.B. nach dem Wo...
11.07.2013 11:45:13
Thread-ID: 1322032
3 Beiträge
Zelle nach verschiedenen Wörtern durchsuchen
Juri

Hallo,
es wäre nett, wenn mir jmd einen Tip geben könnte, wie ich meinen schwierigen Fall lösen kann.
Die Ausgangslage:
Ich hab eine Spalte A "Texte" und eine Spalte B "URL". Die Url gibt an wo die Texte verwendet werden.
In A2 ist also sämtlicher Text (ca. 300 Wörter pro Zelle...
02.12.2013 19:17:38
Thread-ID: 1340967
19 Beiträge
Anzeige
Matrix nach einem Teil des Schlüsselwortes suchen
Hans

Hallo Leute,
ich habe eine Tabelle Matrix, in der seht in der Spalte A das Datum und in Spalte D eine Bezeichnung.
Mit Summenprodukt soll die Anzahl der Bezeichnungen für das in G2 stehende Datum gezählt werden.
Das funktioniert alles sehr gut. Nur kann es sein das die Bezeichnung...
05.12.2013 18:39:35
Thread-ID: 1341477
7 Beiträge
Anzeige
Spalte nach Teilwort durchsuchen und...
VBA

Hallo zusammen,
ich habe ein VBA Problem, bei dem ich absolut keinen Anfang finde, ich habe schon nach vorhandenen Codes geschaut, aber ich verstehs einfach nicht. =/
Folgendes Problem:
Ich habe eine Spalte mit den Tagen des aktuellen Monats
z.B. A1 = 01.01.2014
A2 = A1+1 (e...
12.05.2014 10:52:58
Thread-ID: 1361054
12 Beiträge
Tabellenblatt nach wort oder zahl durchsuchen und
PascalB

Hallo Zusammen,
Bin ziemlicher Neuling im VBA Bereich und habe mir gleich großes vorgenommen ;)
Ich arbeite gerade an einer Artikeldatenbank. Ich habe in einem Tabellenblatt(Datenblatt) alle Artikel untereinander stehen.
in der ersten Zelle steht der Artikelnummer in der zweiten...
22.10.2014 11:33:03
Thread-ID: 1387918
10 Beiträge
Zelle nach Wörtern durchsuchen
Kevin

Hallo Liebes Forum,
ich versuche mich schon eine Weile an einem vielleicht kleinem Problem.
Undzwar habe ich in einer Zelle A1 z.B. stehen : " Haus; Auto; Telefon; Ball"
Nun möchte ich die Zelle nach mehreren Wörtern durchsuchen.
Jedoch habe ich keinen weiteren Ansatz außer dies...
08.01.2015 14:15:36
Thread-ID: 1401492
3 Beiträge
Als Makro: Nach Wort in Zelle suchen + ausgeben
Johannes

Folgende Situation:
Ich habe eine Exceldatei, die 3 Spalten hat:
In Spalte 1 steht Textstrings (0-50, 50-100 oder 100-200)
In Spalte 2 stehen Namen, also ebenfalls Strings und es gibt nur ca. 10 bis 15 verschiedene Namen, also z.B.(Maier, Müller, Hofmann, Klein, Fürst)
In Spal...
25.02.2015 19:29:13
Thread-ID: 1411570
5 Beiträge
Wort in String suchen
Golem

Hallo Excel-Fachleute,
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...
21.05.2015 12:02:05
Thread-ID: 1427094
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Nur ganze Wörter in Excel-Strings suchen

Schritt-für-Schritt-Anleitung

Um in Excel nach einem ganzen Wort in einem String zu suchen, kannst du die VBA-RegEx-Funktion verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu Entwicklertools > Visual Basic.

  2. Füge ein neues Modul hinzu: Einfügen > Modul.

  3. Kopiere folgenden Code in das Modul:

    Public Function WortSuchen(txt As String, suchWort As String) As String
    Dim objRegEx As Object, objMatch As Object
    Set objRegEx = CreateObject("VBScript.RegExp")

    With objRegEx
        .Global = True
        .Pattern = "\b" & suchWort & "\b"
        .IgnoreCase = True
        Set objMatch = .Execute(txt)
    End With

    If objMatch.Count > 0 Then
        WortSuchen = "Gefunden: " & objMatch.Item(0)
    Else
        WortSuchen = "Nicht gefunden"
    End If
End Function

  4. Speichere das Modul und verlasse den VBA-Editor.

  5. In einer Zelle kannst du jetzt die Funktion verwenden: =WortSuchen(A1, "Mitte"), wobei A1 die Zelle mit dem Text ist, in dem du suchen möchtest.

Häufige Fehler und Lösungen

  • Fehler: "Objektvariable oder With-Blockvariable nicht gesetzt."

    • Lösung: Stelle sicher, dass der RegEx-Objekt korrekt instanziiert wurde.

  • Fehler: "Nix gefunden", obwohl das Wort vorhanden ist.

    • Lösung: Überprüfe die Schreibweise und stelle sicher, dass das gesuchte Wort in der richtigen Form und ohne zusätzliche Zeichen vorliegt.

Alternative Methoden

Wenn du keine VBA-Funktion verwenden möchtest, kannst du auch mit Formeln arbeiten:

  1. Mit SUCHEN und WENN:

    =WENN(ISTZAHL(SUCHEN(" Mitte "; " " & A1 & " ")); "Gefunden"; "Nicht gefunden")

  2. Mit LÄNGE und WECHSELN (wie von lupo1 vorgeschlagen):

    =(LÄNGE(A1) - LÄNGE(WECHSELN(WECHSELN(WECHSELN(WECHSELN(" " & A1 & " "; " Mitte "; " "); " Mitte "; " "); " Mitte,"; " "); " Mitte."; " "))) / LÄNGE("Mitte")

Diese Methoden sind besonders nützlich, wenn du keine Programmierung verwenden möchtest.

Praktische Beispiele

Beispiel 1: Suche nach "Mitte"

  • In der Zelle A1 steht: "Der Bezirk Mitte ist bekannt."
  • Verwende die Formel =WortSuchen(A1, "Mitte"), um das Wort zu finden.

Beispiel 2: Suche nach mehreren Wörtern

  • Du kannst die Funktion erweitern, um nach mehreren Wörtern zu suchen. Füge einfach weitere Bedingungen in die Funktion WortSuchen hinzu.

Tipps für Profis

  • Nutze die Möglichkeit, die RegEx-Pattern anzupassen, um auch nach anderen Wörtern zu suchen.
  • Experimentiere mit der .IgnoreCase-Einstellung, um die Groß- und Kleinschreibung zu berücksichtigen.
  • Verwende VBA-Funktionen für große Datenmengen, da sie ressourcenschonender sind als komplexe Excel-Formeln.

FAQ: Häufige Fragen

1. Kann ich auch nach Teilstrings suchen? Ja, du kannst die RegEx-Pattern anpassen, um nach Teilstrings zu suchen, indem du das \b entfernst.

2. Funktioniert das in allen Excel-Versionen? Die VBA-Methode funktioniert in Excel-Versionen ab 2010. Formeln sind jedoch universell einsetzbar.

3. Was ist der Vorteil von RegEx gegenüber einfachen Excel-Suchfunktionen? RegEx ermöglicht eine präzisere Suche nach ganzen Wörtern und kann komplexere Muster erkennen, was die Suche effektiver macht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige