Dim FilterArray() as Variant
FilterArray = Application.Transpose(rngCell.Value)
ActiveSheet.Range("$A$2:" & sp & ze).AutoFilter Field:=FilterFeld, Criteria1:=FiltertArray, Operator:=xlFilterValues
Criteria1:=FiltertArray
Sub Test()
'für eine Mehrfachselektion
Dim FilterArray() As Variant, rngCell As Range, objArray, intI As Integer
Set rngCell = Selection
intI = 0
For Each objArray In rngCell.Cells
ReDim Preserve FilterArray(0 To intI)
FilterArray(intI) = objArray.Value
intI = intI + 1
Next
'Testanzeige
For intI = LBound(FilterArray) To UBound(FilterArray)
MsgBox FilterArray(intI)
Next
End Sub
Sub Test1()
'Funktioniert nur wenn die Zellselektion 2 oder mehr Zellen beinhaltet.
Dim FilterArray As Variant, rngCell As Range, intI As Integer
Set rngCell = Selection
If rngCell.Rows.Count = 1 Then
'Selektion in einer Zeile
FilterArray = Application.Transpose(rngCell)
Else
'Selektion in Spalte(n)
FilterArray = rngCell
End If
'Testanzeige
For intI = LBound(FilterArray) To UBound(FilterArray)
MsgBox FilterArray(intI, 1)
Next
End Sub