ich versuche grade aus einer Tabelle Daten zu filtern. Die Filterkriterien sind dabei variabel, stehen aber immer in der gleichen Range. An allen bisherigen Versuchen und trotz ausgiebiger Recherche bin ich gescheitert. Hat von euch jemand vielleicht eine Idee? Hier das Makro für den Filter und anbei auch eine Beispieldatei (https://www.herber.de/bbs/user/145229.xlsm)
Sub Filter()
ThisWorkbook.Worksheets("Sheet1").Activate
ActiveSheet.Range("$A$5:$X$10000").AutoFilter Field:=2, Operator:=xlFilterValues, _
Criteria1:=Array(Split(Application.WorksheetFunction.TextJoin(" ", True, Worksheets("Filter"). _
Range("A1:A3")), ","))
End Sub
Über eine Rückmeldung würde ich mich sehr freuen!!
Käthe