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