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
|