Office: Autofilter über Werte in Zellen starten

Hallo Ihr Lieben Spezialisten!
Ich möchte den Autofilter mit Daten aus zwei Zellen beschicken und im Autofilter sollten die Werte mit ENTHÄLT gestartet werden. Aber leider bring ich da nicht zusammen. Irgendwie komme ich da mit der Syntax nicht zurecht.
Nachstehend mein Code:
Sub Filter003()
'
' Filter003 Makro
' Makro am 05.11.2011 von GROSS aufgezeichnet
'
'
Selection.AutoFilter Field:=3, Criteria1:=Range("F1"), Operator:=xlAnd, _
Criteria2:=Range("g1")
End Sub

Er funtioniert auch, leider aber immer nur mit entspricht und nicht mit "ENTHÄLT". In den zwei Zellen F1 und G1 steht ein Text und gesucht wird ebenfalls in einer Zelle mit Text.

Bitte-Bitte um Hilfe.

 

Hi Gery,

nach diesem Prinzip:

Code:

Criteria1:="=*" & Range("F1") & "*"

Bis später,
Karin

 

Hallo Karin

Danke für Deine Hilfe hat sofort funktioniert.