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.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Demo: Filterkriterien während des Filterns mit Kutools für Excel anzeigen
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins