Teilstring "was " in Zelle suchen

VBA-Level: befriedigend
Hallo Freunde,
innerhalb einer Spalte sollen diejenigen Zellen markiert werden, die den Teilstring "was " (einschliesslich der Leerstelle) enthalten, aber nicht,
wenn "was " direkt auf "et" oder direkt auf "nd" folgt. Sinn ist, zwar den Teilstring "was " zu suchen, aber die Teilstrings "etwas " und "irgendwas " auszuschliessen,wenn der Teilstring "was " Subteilstring des Zellenteilstrings "etwas " oder des Zellenteilstrings "irgendwas " ist.
Wenn in der Zelle allerdings sowohl der Teilstring "etwas " als auch (an anderer Stelle
des Zellenstrings) der Teilstring "was " oder sowohl der Teilstring "was " als auch der Teilstring "irgendwas " enthalten sind, soll die Zelle auch markiert werden.
Der Zweck ist, Zellen zu markieren, die das Fragewort "was " enthalten.
Wie geht das?
Versucht habe ich es mit Codes der Art
Dim Zelle As Range
Set Zelle =...
Select Case True
Case Like [!e][!t]"was "
...
aber irgendwie habe ich es nicht hinbekommen. Wer weiss Rat? Besten Dank! Werner R.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ttt() Dim vntTmp, strTmp As String, rngC As Range, rngFound As Range For Each rngC In Columns(1).SpecialCells(xlCellTypeConstants) strTmp = rngC vntTmp = Split(strTmp, " ") If Not IsError(Application.Match("was", vntTmp, 0)) Then If rngFound Is Nothing Then Set rngFound = rngC Else Set rngFound = Union(rngC, rngFound) End If End If Next If Not rngFound Is Nothing Then rngFound.Select End Sub

Hallo Dierk,
habe deinen Code inzwischen ausprobiert. Er funktioniert einwandfrei!
Dieser mittellange Code ist sehr aufschlussreich. Ich habe durch ihn folgendes gelernt:
1. Man kann eine Spalte in einer Tabelle auch mit einer For Each-Schleife und den SpecialCells durchsuchen. Ich hatte das immer, etwas umständlicher, mit einer For...-Next-Schleife gemacht.
2. Die Variable "vntTmp" enthält ein durch "Split" zugewiesenes Array. Originell ist hier die Verwendung
der Worksheetfunction "Match". Diese durchsucht bekanntlich eine einspaltige Matrix. Dass man
damit auch Arrayvariablen durchsuchen kann, darauf wäre ich selbst nicht gekommen. Da "Split" hier
das Leerzeichen als Trennzeichen verwendet, findet Match dann, wie beabsichtigt, nur das Wort "was", nicht aber "etwas" und 'irgendwas".
3. Die gefundenen Zellen werden mit "Union" zu einem einzigen, nicht zusammenhängenden Bereich
vereinigt, der am Ende des Codes dann mit der Select-Anweisung markiert wird. Dadurch werden alle
Zellen, die das Wort "was" enthalten, in der Tabelle markiert.
Obige Erklärungen sind eher für Dritte gedacht, um zu zeigen, wie viel in einem solchen Code stecken kann. Dass ich dir als dem Entwickler des Codes damit nichts Neues sage, ist mir klar.
Nochmals besten Dank! Grüße Werner R.

Beliebteste Forumthreads (12 Monate)

Teilstring "was " in Zelle suchen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilstring "was " in Zelle suchen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread