Vorlage:

Code:

Option Explicit


Sub Main()

    Dim vArrayFürAutofilter As Variant
    
    vArrayFürAutofilter = GetFilterCriteria(ThisWorkbook.Worksheets(1).Range("A2:A12"))

End Sub

Function GetFilterCriteria(ByRef rng As Excel.Range) As Variant

    Dim arrLst  As Object
    Dim c       As Excel.Range
    
    Set arrLst = CreateObject("System.Collections.ArrayList")
    
    For Each c In rng
        If UBound(Filter(arrLst.ToArray(), c.Value)) = True Then arrLst.Add c.Value
    Next c
    
    GetFilterCriteria = arrLst.ToArray()
    
End Function