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