Hoe toont of geeft u automatisch filtervoorwaarden weer in Excel?
Automatisch filteren is een handige functie voor Excel-gebruikers. Soms past u het automatisch filter toe om gegevens op meerdere criteria te filteren en stuurt u het bestand vervolgens naar anderen. Hoe kunnen andere gebruikers in zo’n situatie uw filtercriteria achterhalen?
Toon / Geef automatisch Filtervoorwaarden weer in werkblad met VBA-code
Toon / Geef automatisch Filtervoorwaarden weer in werkblad met Kutools voor Excel 
Toon / Geef automatisch Filtervoorwaarden weer in werkblad met een door de gebruiker gedefinieerde functie
Stel dat u de volgende gegevens hebt, die al zijn gefilterd op bepaalde criteria; zie schermafbeelding:
Nu kunt u een door de gebruiker gedefinieerde functie maken om de filtercriteria in cellen weer te geven. Volg hiervoor de volgende stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster:
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. Voer daarna deze code uit. Typ in een lege cel van een lege rij, bijvoorbeeld cel A1, de volgende formule: =AutoFilter_Criteria(A4) (A4 is de koptekstcel van de gefilterde gegevens); zie schermafbeelding:
4. Druk daarna op de toets Enter, selecteer cel A1 en sleep de vulgreep naar de cel rechts waar u deze formule nodig hebt. Alle criteria worden nu weergegeven in de cellen; zie schermafbeelding:
Opmerking: als er meer dan twee criteria in één kolom staan, levert deze door de gebruiker gedefinieerde functie geen juist resultaat op.
Toon / Geef automatisch Filtervoorwaarden weer in werkblad met VBA-code
Hier is een handige VBA-code die u helpt de filtervoorwaarden uit een cel in uw werkmap weer te geven.
1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen>Module, en plak de volgende macro in het Modulevenster:
VBA-code: Toon automatisch Filtervoorwaarden in werkblad
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. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u een lege cel kunt selecteren om de criteria in te voeren; zie schermafbeelding:
4. Klik vervolgens op OK, waarna alle criteria in de geselecteerde cel worden weergegeven zoals hieronder:
Opmerking:
Met deze VBA-code worden, indien u meer dan twee criteria in één kolom hebt, de gedetailleerde filtercriteria niet weergegeven, maar wordt het volgende getoond:
Toon / Geef automatisch Filtervoorwaarden weer in werkblad met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, kunt u de functie Superfilter gebruiken om gegevens te filteren en tegelijkertijd altijd de filtervoorwaarden in beeld te houden.
1. Klik op KUTOOLS PLUS > Superfilter om de functie Superfilter te openen. Zie schermafbeelding:
2. Klik in het deelvenster Superfilter om het gewenste gegevensbereik te selecteren en vink het vakje „Opgegeven” aan om het filterbereik vast te leggen. Zie schermafbeelding: 
3. In het deelvenster Superfilter klikt u op een regel in een filtergroep, stelt u de gewenste filtervoorwaarden in via de keuzelijst en klikt u op OK om de criteria toe te passen. Zie schermafbeelding:
4. Klik op Filter, waarna de geselecteerde gegevens worden gefilterd op basis van de criteria. Tegelijkertijd ziet u dat de filtervoorwaarden worden weergegeven in het deelvenster Superfilter. Zie schermafbeelding:
Opmerking: u kunt de filtervoorwaarden opslaan als scenario voor later gebruik met het Superfilter-hulpprogramma.
1. Klik op de knop Het huidige scenario opslaan en typ in het verschijnende dialoogvenster een filternaam.
2. Wanneer u deze filterinstellingen de volgende keer wilt gebruiken, klikt u op de menuknop en kiest u het scenario in het submenu van Een bestaand scenario laden.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Toon Filtervoorwaarden tijdens het filteren met behulp van Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins