Auf Englisch lesen

Freigeben über


Filters-Objekt (Excel)

Eine Auflistung von Filter-Objekten , die alle Filter in einem automatisch gefilterten Bereich darstellt.

Beispiel

Verwenden Sie die Filters-Eigenschaft des AutoFilter-Objekts , um die Filters-Auflistung zurückzugeben. Im folgenden Beispiel wird eine Liste erstellt, die die Kriterien und Operatoren für die Filter im automatisch gefilterten Bereich auf dem Arbeitsblatt Crew enthält.

Dim f As Filter 
Dim w As Worksheet 
Const ns As String = "Not set" 
 
Set w = Worksheets("Crew") 
Set w2 = Worksheets("FilterData") 
rw = 1 
For Each f In w.AutoFilter.Filters 
 If f.On Then 
 c1 = Right(f.Criteria1, Len(f.Criteria1) - 1) 
 If f.Operator Then 
 op = f.Operator 
 c2 = Right(f.Criteria2, Len(f.Criteria2) - 1) 
 Else 
 op = ns 
 c2 = ns 
 End If 
 Else 
 c1 = ns 
 op = ns 
 c2 = ns 
 End If 
 w2.Cells(rw, 1) = c1 
 w2.Cells(rw, 2) = op 
 w2.Cells(rw, 3) = c2 
 rw = rw + 1 
Next

Verwenden Sie Filter (Index), wobei index der Filtertitel oder die Indexnummer ist, um ein einzelnes Filter-Objekt zurückzugeben. Im folgenden Beispiel wird eine Variable auf den Wert der OnOn-Eigenschaft des Filters für die erste Spalte im gefilterten Bereich im Arbeitsblatt "Crew" festgelegt.

Set w = Worksheets("Crew") 
If w.AutoFilterMode Then 
 filterIsOn = w.AutoFilter.Filters(1).On 
End If

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.