ok, hier noch meine Lösung ...
22.05.2018 15:04:47
udo
Um das gewünschte Ergebnis nun einigermaßen umzusetzen gehe ich nun folgenden Weg über eine separate Inputbox und deren Definition bei der Criteria Angabe zuvor und danach mit "*" damit in die " enthält " Variante gefiltert bekomme, demnach filtert er mir dann in der jew. Spalte alle Zeilen die den Inhalt , den man dann in der Inputbox angibt eben anteilig enthalten. Eben genauso als würde man im Autofilter per Textfilteruche untergeordnet nach enthält suchen. Nur dass ich es so direkt aufrufen kann wie eigentl. gewünscht.
Damit kann ich jetzt gut leben.
Danke nochmal an Chris und seine Mühe mit mir ;-)
Hier nun der Beispielcode :
Man kann auch mehrere Spalten damit gleichzeitig filtern, braucht dann diesen Code nur zu duplizieren mit entspr. Endung für die jew. Spalte zB. und bei Field=... die Nr. des Spaltenfilters angeben in dem gesucht werden soll wenn es mehrere sind.
Sub AutoFilter_1()
Dim Suchbegriff As String
Suchbegriff = InputBox(" Bitte im Text anteiliges Kriterium eingeben :", " _
AutoFilter Direktsuche")
If Suchbegriff = "" Then Exit Sub
ActiveSheet.Range("$H$80:$AP$10000").Autofilter Field:=1, Criteria1:="*" & _
Suchbegriff & "*" ' enthält ...
' ActiveSheet.Range("$H$80:$AP$10000").Autofilter Field:=1, Criteria1:="" & _
Suchbegriff & "*" ' beginnt mit ...
' ActiveSheet.Range("$H$80:$AP$10000").Autofilter Field:=1, Criteria1:="" & _
Suchbegriff & "" ' ist gleich ...
' ActiveSheet.Range("$H$80:$AP$10000").Autofilter Field:=1, Criteria1:="*" & _
Suchbegriff & "" ' endet mit ...
End Sub
LG udo