Wie werden automatische Filterkriterien in Excel angezeigt / angezeigt?
Der automatische Filter ist eine nützliche Funktion für Excel-Benutzer. Manchmal wenden wir den automatischen Filter an, um die Daten nach mehreren Kriterien zu filtern und die Datei an andere zu senden. Wie können die anderen Benutzer in dieser Situation Ihr gefiltertes Kriterium kennenlernen?
Anzeigen / Anzeigen von Kriterien für die automatische Filterung im Arbeitsblatt mit VBA-Code
Anzeigen / Anzeigen von Kriterien für die automatische Filterung im Arbeitsblatt mit Kutools for Excel 
Anzeigen / Anzeigen von Kriterien für die automatische Filterung im Arbeitsblatt mit benutzerdefinierter Funktion
Angenommen, Sie haben die folgenden Daten, die nach bestimmten Kriterien gefiltert wurden, siehe Screenshot:
Und jetzt kann ich eine benutzerdefinierte Funktion erstellen, um das Filterkriterium in den Zellen anzuzeigen. Führen Sie dazu die folgenden Schritte aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendungsfenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster:
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 diese Formel in einer leeren Zelle einer leeren Zeile, z. B. Zelle A1, ein = AutoFilter_Criteria (A4) (A4 ist die Kopfzelle der gefilterten Daten), siehe Screenshot:
4. Dann drücken Enter Drücken Sie die Taste und wählen Sie dann Zelle A1 aus. Ziehen Sie den Füllpunkt auf die rechten Zellen, die diese Formel enthalten sollen. Das gesamte Kriterium wurde in den Zellen angezeigt. Siehe Abbildung:
Note: Wenn eine Spalte mehr als zwei Kriterien enthält, liefert diese benutzerdefinierte Funktion nicht das richtige Ergebnis.
Anzeigen / Anzeigen von Kriterien für die automatische Filterung im Arbeitsblatt mit VBA-Code
Hier kann ich auch über einen interessanten VBA-Code sprechen, der Ihnen helfen kann, die Filterkriterien in einer Zelle der Arbeitsmappe anzuzeigen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendungsfenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster:
VBA-Code: Zeigt die Kriterien für die automatische Filterung im Arbeitsblatt an
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. Dann drücken F5 Wenn Sie den Schlüssel zum Ausführen dieses Codes eingeben, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie eine leere Zelle zum Einfügen des Kriteriums auswählen können (siehe Abbildung):
4. Und dann klick OKAlle Kriterien wurden in der ausgewählten Zelle wie folgt angezeigt:
Hinweis:
Wenn bei diesem VBA-Code Ihr Kriterium mehr als zwei in einer Spalte enthält, wird das detaillierte Filterkriterium nicht angezeigt, sondern wie folgt angezeigt:
Anzeigen / Anzeigen von Kriterien für die automatische Filterung im Arbeitsblatt mit Kutools for Excel
Wenn Sie Kutools for Excel installiert, können Sie seine anwenden Superfilter Funktion zum Filtern von Daten, und gleichzeitig können Sie die Filterkriterien jederzeit anzeigen.
| Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1 Klicken Kutoolen Plus > Superfilter um das anzuzeigen Superfilter Funktion. Siehe Screenshot:
2. In dem Superfilter Bereich, klicken Sie auf 
Um den Datenbereich auszuwählen, den Sie filtern möchten, aktivieren Sie das Kontrollkästchen Angegeben, um den Filterbereich festzulegen. Siehe Screenshot:
3. In dem Superfilter Klicken Sie im Bereich auf eine Zeile in einer Filtergruppe, geben Sie die Filterkriterien in den Dropdown-Listen nach Bedarf an und klicken Sie dann auf OK, um die Kriterieneinstellung abzuschließen. Siehe Screenshot:
4 Klicken Filterund die ausgewählten Daten wurden nach den Kriterien gefiltert. In der Zwischenzeit können Sie die Filterkriterien anzeigen, die im Feld angezeigt werden Superfilter Feld. 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 Speichern Sie die aktuellen Filtereinstellungen Geben Sie im Popup-Dialogfeld einen Filternamen ein.
2. Wenn Sie diese Filer-Einstellungen das nächste Mal verwenden möchten, klicken Sie auf die Menüschaltfläche und wählen Sie das Szenario im Untermenü von Öffnen Sie das Szenario mit gespeicherten Filtereinstellungen.
Filterfilter beim Filtern anzeigen
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
