Ich muss ein Autofilter setzen - dabei mehrere Werte aus einer Spalte rausfiltern. Es kann unterschiedliche Anzahl Kriterien sein. Daher habe ich ein Makro, das mit einer dynamischen Liste arbeitet. Allerdings sollen die Werte horizontal nacheinander stehen: Set rngKrit = Worksheets("31").Range("K1:M1").
Wie kann ich dieses Makro ändern, damit alle Kriterien vertikal nacheinander stehen könnten?
Hier ist das Makro
Dim astrArray() As String
Dim rngKrit As Range
Set rngKrit = Worksheets("Daten").Range("K1:M1")
With WorksheetFunction
astrArray = Split(Join(.Transpose(.Transpose(rngKrit)), vbTab), vbTab)
End With
With Worksheets("Daten")
.Range("A:G").AutoFilter Field:=3, Criteria1:=astrArray, Operator:=xlFilterValues
.AutoFilter.Range.Offset(1).ClearContents
.ShowAllData
With .Range("A:P")
.Sort .Cells(1), xlAscending, Header:=xlYes
End With
End With
End Sub
LG Helen