Wie zeigt man AutoFilter-Kriterien in Excel an?

AutoFilter ist eine nützliche Funktion für Excel-Benutzer. Manchmal wenden wir den AutoFilter an, um Daten nach mehreren Kriterien zu filtern und die Datei an andere weiterzuleiten. In dieser Situation, wenn die anderen Benutzer Ihre Filterkriterien kennen möchten, wie können sie das tun?

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit einer benutzerdefinierten Funktion

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit VBA-Code

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit Kutools für Excel

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit einer benutzerdefinierten Funktion

Angenommen, Sie haben die folgenden Daten, die bereits nach einigen Kriterien gefiltert wurden, siehe Screenshot:

Und jetzt kann ich eine benutzerdefinierte Funktion erstellen, um das Filterkriterium in die Zellen anzuzeigen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro in das Modulfenster ein:

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. Speichern und schließen Sie diesen Code. Geben Sie in einer leeren Zelle einer leeren Zeile, zum Beispiel Zelle A1, diese Formel ein: =AutoFilter_Criteria(A4) (A4 ist die Kopfzeile der gefilterten Daten), siehe Screenshot:

4. Drücken Sie dann die Eingabetaste und wählen Sie Zelle A1 aus. Ziehen Sie den Ausfüllkästchen über die rechten Zellen, die diese Formel enthalten sollen, und alle Kriterien werden in die Zellen angezeigt, siehe Screenshot:

Hinweis: Wenn es in einer Spalte mehr als zwei Kriterien gibt, wird diese benutzerdefinierte Funktion kein korrektes Ergebnis liefern.

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit VBA-Code

Hier möchte ich auch einen interessanten VBA-Code vorstellen, der Ihnen hilft, die Filterkriterien in einer Zelle des Arbeitsbuchs anzuzeigen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro in das Modulfenster ein:

VBA-Code: Anzeigen der AutoFilter-Kriterien im Arbeitsblatt

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, in dem Sie eine leere Zelle auswählen können, um die Kriterien einzufügen, siehe Screenshot:

4. Klicken Sie dann auf OK, und alle Kriterien werden in der ausgewählten Zelle angezeigt, wie folgt:

Hinweis:

Mit diesem VBA-Code werden detaillierte Filterkriterien nicht angezeigt, wenn es in einer Spalte mehr als zwei Kriterien gibt, sondern stattdessen wie folgt dargestellt:

Anzeigen der AutoFilter-Kriterien im Arbeitsblatt mit Kutools für Excel

Wenn Sie Kutools für Excel installiert haben, können Sie seine Super Filter-Funktion verwenden, um Daten zu filtern und gleichzeitig die Filterkriterien jederzeit anzuzeigen.

1. Klicken Sie auf Kutools Plus > Super Filter um die Super Filter Funktion anzuzeigen. Siehe Screenshot:

2. Im Super Filter Bereich klicken Sie auf   um den Datenbereich auszuwählen, den Sie filtern möchten, und aktivieren Sie das Kontrollkästchen Angegeben, um den Filterbereich festzulegen. Siehe Screenshot:

3. Im Super Filter Bereich klicken Sie auf eine Zeile in einer Filtergruppe und legen Sie die Filterkriterien in den Dropdown-Listen fest, wie Sie benötigen, und klicken Sie dann auf Ok, um die Kriterieneinstellungen abzuschließen. Siehe Screenshot:

4. Klicken Sie auf Filter, und die ausgewählten Daten werden nach den Kriterien gefiltert, und gleichzeitig können Sie die Filterkriterien im Super Filter Bereich anzeigen. Siehe Screenshot:

Hinweis: Sie können die Filterkriterien als Szenario für die nächste Verwendung mit dem Super Filter-Dienstprogramm speichern.

1. Klicken Sie auf die Schaltfläche Das aktuelle Szenario speichern Geben Sie im erscheinenden Dialogfeld einen Filternamen ein.

2. Wenn Sie diese Filtersettings das nächste Mal verwenden möchten, klicken Sie auf die Menüschaltfläche und wählen Sie das Szenario im Untermenü von Szenario laden.

Demo: Filterkriterien während des Filterns mit Kutools für Excel anzeigen