|
Hallo,
den Autofilter selbst, kannst du dir mit dem Makro-Rekorder aufzeichnen.
Um deine Auswahl-Zellen in ein 1-Dimensionales Array zu kriegen, wie es der Autofilter benötigt, kopierst du die nicht leeren Zellen deiner Selection.
Dim arr As Variant
Dim rng As Range
Set rng = Selection.SpecialCells(xlCellTypeConstants)
arr = Application.WorksheetFunction.Transpose(rng)
MsgBox UBound(arr)
Sabina
|