Wie kann man die automatischen Filterbedingungen in Excel anzeigen bzw. sichtbar machen?
Der AutoFilter ist eine äußerst nützliche Funktion für Excel-Nutzer. Manchmal wenden wir ihn an, um Daten nach mehreren Kriterien zu filtern, und senden die Datei anschließend an andere Personen. In solchen Fällen stellt sich die Frage: Wie können diese Benutzer Ihre Filterkriterien einsehen?
Automatischen Filterbedingungen im Arbeitsblatt mit VBA-Code anzeigen / sichtbar machen
Automatischen Filterbedingungen im Arbeitsblatt mit Kutools für Excel anzeigen / sichtbar machen 
Automatischen Filterbedingungen im Arbeitsblatt mit einer benutzerdefinierten Funktion anzeigen / sichtbar machen
Angenommen, Sie verfügen über die folgenden Daten, die bereits nach bestimmten Kriterien gefiltert wurden – siehe Screenshot:
Nun können Sie eine benutzerdefinierte Funktion erstellen, um die Filterkriterien direkt in Zellen anzuzeigen. Gehen Sie dazu wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modul-Fenster 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. Geben Sie dann diesen Code in eine leere Zelle einer leeren Zeile ein – beispielsweise in Zelle A1 – und verwenden Sie die folgende Formel: =AutoFilter_Criteria(A4) (A4 ist die Überschriftszelle der gefilterten Daten). Siehe Screenshot:
4. Drücken Sie anschließend die Enter-Taste, markieren Sie dann Zelle A1 und ziehen Sie das Ausfüllkästchen so weit nach rechts, wie Sie die Formel benötigen. Alle Kriterien werden nun in den entsprechenden Zellen angezeigt. Siehe Screenshot:
Hinweis: Wenn in einer Spalte mehr als zwei Kriterien vorhanden sind, liefert diese benutzerdefinierte Funktion kein korrektes Ergebnis.
Automatischen Filterbedingungen im Arbeitsblatt mit VBA-Code anzeigen / sichtbar machen
Hier möchte ich außerdem einen interessanten VBA-Code vorstellen, mit dem Sie die Filterkriterien direkt in einer Zelle Ihrer Arbeitsmappe anzeigen können.
1. Halten Sie die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie das folgende Makro in das Modul-Fensterein:
VBA-Code: Automatischen Filterbedingungen im Arbeitsblatt anzeigen
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 anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie eine leere Zelle auswählen können, in der die Kriterien eingetragen werden sollen. Siehe Screenshot:
4. Klicken Sie danach auf OK, und alle Kriterien werden in der ausgewählten Zelle wie folgt angezeigt:
Hinweis:
Bei Verwendung dieses VBA-Codes werden bei mehr als zwei Kriterien in einer Spalte nicht die detaillierten Filterkriterien angezeigt, sondern stattdessen folgende Darstellung verwendet:
Automatischen Filterbedingungen im Arbeitsblatt mit Kutools für Excel anzeigen / sichtbar machen
Wenn Sie Kutools für Excel installiert haben, können Sie die leistungsstarke Super-Filter-Funktion nutzen, um Ihre Daten zu filtern – und jederzeit alle Filterbedingungen im Blick behalten.
1. Klicken Sie auf KUTOOLS PLUS > Super Filter, um die Super Filter-Funktion anzuzeigen. Siehe Screenshot:
2. Klicken Sie im Super Filter-Bereich auf 
, um den gewünschten Datenbereich zum Filtern auszuwählen, und aktivieren Sie das Kontrollkästchen „Angegeben“, um den Filterbereich zu fixieren. Siehe Screenshot:
3. Klicken Sie im Super Filter-Bereich auf eine Zeile innerhalb einer Filtergruppe, geben Sie die gewünschten Filterbedingungen in der Dropdown-Liste an und klicken Sie auf „OK“, um die Kriterieneinstellung abzuschließen. Siehe Screenshot:
4. Klicken Sie auf Filter, und die ausgewählten Daten werden gemäß der festgelegten Kriterien gefiltert. Gleichzeitig sehen Sie, dass die Filterbedingungen im Super Filter-Bereich angezeigt werden. Siehe Screenshot:
Hinweis: Speichern Sie Ihre Filterbedingungen mit dem Super-Filter-Tool als Szenario für die spätere Wiederverwendung.
1. Klicken Sie auf die Schaltfläche Das aktuelle Szenario speichern, und geben Sie im erscheinenden Dialogfeld einen Namen für Ihren Filter ein.
2. Wenn Sie diese Filtereinstellungen das nächste Mal verwenden möchten, klicken Sie auf die Menüschaltfläche und wählen Sie das Szenario im Untermenü von Ein vorhandenes Szenario laden aus.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Anzeige von Filterbedingungen während des Filterns mit Kutools für Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins