Hoe wis je filters uit alle werkbladen in het huidige werkboek in Excel?
Wanneer u werkt met een Excel-werkboek met meerdere werkbladen, gebruikt u vaak filters op verschillende bladen om uw gegevens efficiënt te analyseren. Nadat u filters op meerdere bladen hebt toegepast, wilt u deze mogelijk later allemaal tegelijk verwijderen om uw werkbladen weer in hun oorspronkelijke, ongefilterde staat terug te brengen. Dit handmatig doen—door één voor één naar elk werkblad te schakelen en de filters individueel te wissen—is niet alleen tijdrovend, maar verhoogt ook de kans dat u per ongeluk een werkblad over het hoofd ziet.
Deze taak komt vaak voor in scenario’s waarin u een werkmap ontvangt van collega’s of gegevens consolideert van verschillende teams, en u wilt ervoor zorgen dat alle filters zijn gewist voordat u uw eigen analyse start of rapporten voorbereidt om te delen. Elk werkblad handmatig verwerken kan inefficiënt zijn, vooral bij grote werkmappen met tientallen bladen. Daarom kan het vinden van een snelle en betrouwbare manier om alle filters uit elk werkblad in uw Huidige werkboek te wissen aanzienlijk tijd en moeite besparen en tegelijkertijd het risico verminderen dat u gefilterde gegevens over het hoofd ziet.
Hieronder presenteren we een praktische methode om dit in slechts enkele stappen te realiseren. Voor geavanceerdere of alternatieve technieken, zoals formulegebaseerde benaderingen of het gebruik van Excel-add-ins, verwijzen we naar de aanvullende oplossingen aan het einde van dit artikel.
Wis filters uit alle werkbladen in Huidige werkboek met VBA-code
Wis filters uit alle werkbladen in Huidige werkboek met VBA-code
Om efficiënt alle filters uit elk werkblad in uw huidige werkboek te verwijderen, kunt u een VBA-script gebruiken. Deze aanpak is ideaal voor gebruikers die vertrouwd zijn met het uitvoeren van macro’s in Excel en werkt vooral goed in werkmappen waarin verschillende soorten gestructureerde gegevens worden gecombineerd.
Sla uw werk eerst op, want het uitvoeren van VBA brengt bulkwijzigingen aan in uw werkmap.
1. Druk in de werkmap waarin u filters wilt wissen op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen. Als u Excel voor het eerst gebruikt, moet u mogelijk het tabblad Ontwikkelaars inschakelen via het optiemenu.
2. Ga in het geopende venster Microsoft Visual Basic for Applications naar Invoegen > Module om een nieuwe module te maken. Kopieer en plak vervolgens het volgende VBA-script in het modulevenster. Zie de onderstaande afbeelding ter referentie:
VBA-code: Wis filters uit alle werkbladen in Huidige werkboek
Sub Clear_fiter()
'Updated by Extendoffice 20250902
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Druk op de toets F5 of klik op de knop Uitvoeren om de code uit te voeren. Na uitvoering worden alle filters—zowel standaard bereikfilters als tabelgebaseerde filters—onmiddellijk gewist op alle werkbladen in uw huidige werkboek.
Zorg ervoor dat u uw werkmap opslaat voordat u macro’s uitvoert, want VBA-acties kunt u niet ongedaan maken met Ctrl + Z.
Gerelateerde artikelen:
- Hoe wist u de filtercache (oude items) uit een draaitabel in Excel?
- Hoe wist u filters bij het openen, opslaan of sluiten van een werkmap in Excel?
- Hoe filtert u gegevens in Excel op basis van een selectievakje?
- Hoe vult u een reeks getallen in een gefilterde kolom in 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