Office: In Spalte nach Wert suchen, danach in MsgBox ausgeben

Hallo Zusammen

Habe mich mal wieder an eine kleine VBA Aufgabe gewagt und bin soweit damit gekommen, dass es halbwegs tut was ich will, nur noch noch nicht ganz perfekt.

Ich möchte bei einer Tabelle in Spalte B nach einem Text suchen (ungefähre Übereinstimmung sodass nach Stichwort gesucht werden kann).

Anschliessend möchte ich für alle Werte in Spalte B, auf die dieses Suchwort zutrifft den Wert auf der selben Zeile in Spalte A und Spalte D ausgeben lassen. Sämtliche werte sollen dann in einer MsgBox angezeigt werden.
Habe folgenden Ansatz:

Code:

Hier habe ich aber das Problem, dass erstens, nur bei genauer Übereinstimmung ein Wert ausgegeben wird und 2. nicht Mehrere Werte ausgegeben werden. (Spalte A ist hier ein Datum und Spalte D eine Nummer)

Bin bereits im Voraus dankbar um jede Hilfe *Smilie

Fabian

:)

 

Das "Problem" ist das Gleichheitszeichen.

Code:

ganz hemmunglos könnte man stattdessen

Code:

schreiben. Dann werden schon mal "Fragmente" entdeckt.
Also zB. würde Haus und Maus mit dem Kriterium "au" gefunden.
Letztlich ist das aber auch nicht sauber. Es ist auch abhängig davon, was als Suchkriterium eingegeben werden dürfte und welche Daten in der entsprechenden Spalten stehen werden.

Nachtrag:

Code:

würde dann auch, unabhängig von der Gross- und Kleinschreibung funktionieren. Also über "au" zu Haus, Maus und Auszeit.
Aber wie gesagt. Nicht ganz 100%ig sauber.

 

Hallo Andrea

Danke für die prompte Antwort.

Die Funktionsweise ist dann im Prinzip wie bei der "Ctrl + F" Suche oder? das reicht für meinen Suchvorgang aus und funktioniert jetzt einwandfrei *Smilie

Vielen Dank!!