Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 14:37:20
Wert in Spalte mit Kriterium finden, Ausschluss leere Zellen
08.05.2024 12:59:21
MsgBox beim öffnen der Datei
08.05.2024 12:16:10
Dropdownmenü mit Klick auf Zelle öffnen (nicht über Pfeil)
08.05.2024 11:33:57
Print Area auswählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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
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
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!
Anzeige
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
AW: Aua das tut weh
20.01.2020 22:38:04
Dirk
Stimmt, habe ich übersehen, wäre auch gegangen, sorry.

37 Forumthreads zu ähnlichen 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
Anzeige
ganze Wörter in string suchen und löschen
Beffen

Tacho an Alle!
Ich habe eine kleine Frage:
Ich möchte aus einem String (Variable "satz") Wörter herausfiltern, die in der ersten Spalte von Zeile 1 bis 200 stehen. Darin sind besonders häufig verwendete Wörter der deutschen Sprache aufgeführt.
Ziel ist es am Ende ein Schlagwort aus...
19.04.2012 10:58:12
Thread-ID: 1260063
4 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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
8
3
1
4
2
18
6
11
9
2
4
4
3
10
7
4
14
1
5
3
4
9
1
1