Im folgenden Beispiel wird eine Variable auf den Wert der Criteria1-Eigenschaft des Filters für die erste Spalte im gefilterten Bereich von Tabellenblatt "Crew" festgelegt.
With Worksheets("Crew") If .AutoFilterMode Then With .AutoFilter.Filters(1) If .On Then c1 = .Criteria1 End With End If End With