Hoe filters van alle werkbladen in het actieve werkboek in Excel te verwijderen?
Stel dat je meerdere filters hebt aangemaakt op verschillende werkbladen in een Excel-werkboek, en nu wil je al deze filters tegelijk verwijderen. Normaal gesproken moet je naar elk werkblad gaan om de filter handmatig te controleren en te wissen. Is er een handige methode om filters van alle werkbladen in het actieve werkboek te verwijderen? Probeer de methode in dit artikel.
Filters van alle werkbladen in het actieve werkboek verwijderen met VBA-code
Filters van alle werkbladen in het actieve werkboek verwijderen met VBA-code
Voer onderstaande VBA-script uit om filters van alle werkbladen in het actieve werkboek te verwijderen.
1. Druk in het werkboek waaruit je de filters wilt wissen op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens onderstaand VBA-script in het Module-venster. Zie onderstaande schermafbeelding:
VBA-code: Filters van alle werkbladen in het actieve werkboek verwijderen
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
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 F5-toets om de code uit te voeren. Alle filters op alle werkbladen in het huidige werkboek worden onmiddellijk gewist.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gerelateerde artikelen:
- Hoe filtercache (oude items) uit een draaitabel in Excel te wissen?
- Hoe filters te wissen bij het openen, opslaan of sluiten van een werkboek in Excel?
- Hoe gegevens te filteren op basis van een selectievakje in Excel?
- Hoe een reeks getallen in een gefilterde lijstkolom in Excel in te vullen?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen