Mein Problem ist folgendes. Der Code zum Filtern aus einer Tabelle funktioniert. 

Allerdings will ich jetzt den Text zum Filtern nicht aus einer Zelle sodern aus einem Textfeld auslesen. 

Dort komme ich leider nicht weiter. Vll kann mir einer von euch helfen. Danke schonmal

Sub Suche()

'Werte für Filter eintragen
shFilter.Range("A2, B3,....").Value = "*" & Range("Suchkriterium").Value & "*"

'Erweiterten Filter anwenden
Range("tblFlur[#All]").AdvancedFilter xlFilterInPlace, shFilter.Range("A1:BP69")

End Sub

___

Also anstatt die Zelle "Suchkriterium", das Textfeld "Suchkriterium" einfügen