Office: (Office 2019) Like im Autofilter möglich

Hallo zusammen. Ich möchte mittels VBA Code ein Like einbauen, um in einer Zelle mit zwei Worten auch ein Ergebnis zu erhalten. Mein Code bisher mit einem Wort "filtern" ist möglich.
Wenn aber z.B. "VS" u. "Therapeut" in der gleichen Zelle vorkommen, klappt dies nicht.
Gibt es hierfür ebenfalls eine Möglichkeit, dies zu verwirklichen? Mein Code bisher:

Code:

'*** Filtert Daten nach Text
    ' Text (VS) = Vorstandsmitglieder
    ' Text (LF) = Listenführer
    ' Text = (Therapeut)
    ' liO.Range.AutoFilter Field:=21, Criteria1:=Array("VS", "LS", "Therapeut"), Operator:=xlFilterValues

 

Hallo,

verschiedene Begriffe in einer Zelle, das ist immer schlecht. Im übrigen: eine Beispieldatei erleichtert die Lösungsfindung.

 

Hi,

mit Platzhalter kannst du gleichzeitig nur auf maximal 2 Begriffe filtern, wenn z.B. Therapeut und Therapeutin vorkommen können:

Code:

....Criteria1:="=*Therapeut*", Operator:=xlOr, Criteria2:="=VS"

Wenn es mehr als 2 Begriffe sein sollen, dann musst du in einer Schleife über alle Zellen laufen und z.B. mittels Instr() prüfen, ob der Suchbegriff enthalten ist.

---

 

Danke, der Hinweis von Karin hilft mir schon sehr weiter.
Das mit einer Schleife für mehrere Wörter werde ich aus gegebenem Anlass gleich einmal ausprobieren. Gruß