Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe filters wissen bij het openen, opslaan of sluiten van een werkboek in Excel?

Author Siluvia Last modified

Stel dat je meerdere werkbladen hebt met gefilterde gegevens in je werkboek. Om alle filters te wissen, moet je de gefilterde lijsten in verschillende werkbladen controleren en deze vervolgens handmatig één voor één wissen. Dat is vervelend! In dit artikel laten we je verschillende methoden zien om filters te wissen bij het openen, opslaan of sluiten van een werkboek in Excel.

Filters wissen bij het openen van een werkboek in Excel
Filters wissen bij het opslaan van een werkboek in Excel
Filters wissen bij het sluiten/verlaten van een werkboek in Excel

Filters wissen bij het openen van een werkboek in Excel

In deze sectie wordt uitgelegd hoe je filters in alle werkbladen kunt wissen wanneer je een werkboek opent. Volg de volgende stappen.

1. Druk in een werkboek waarin je automatisch alle filters wilt wissen bij het openen, op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisWorkbook in het linker Project-paneel, en kopieer en plak vervolgens de onderstaande VBA-code in het ThisWorkbook (Code)-venster. Zie screenshot:

copy and paste the code into ThisWorkbook module

VBA-code: Alle filters wissen bij het openen van een werkboek

Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Druk op Alt + Q om het Microsoft Visual Basic for Applications-venster te verlaten.

4. Klik op Bestand > Opslaan als. Selecteer in het pop-upvenster Opslaan als een map om dit werkboek op te slaan, geef het een naam in het vak Bestandsnaam, selecteer vervolgens de optie Excel-werkmap met macro's in de vervolgkeuzelijst Opslaan als type, en klik ten slotte op de knop Opslaan.

select Excel Macro-Enabled Workbook option from the Save as type drop-down list

Vanaf nu worden, wanneer je dit werkboek met macro's opent, alle filters automatisch gewist.

a screenshot of kutools for excel ai

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.
Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Filters wissen bij het opslaan van een werkboek in Excel

Je kunt alle filters uit het huidige werkboek wissen telkens wanneer je het opslaat.

1. Druk in het werkboek waaruit je automatisch alle filters wilt wissen, op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisWorkbook in het linker Project-paneel, en kopieer en plak vervolgens de onderstaande VBA-code in het ThisWorkbook (Code)-venster. Zie screenshot:

copy and paste the code into ThisWorkbook module

VBA-code: Filters wissen bij het opslaan van een werkboek

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Druk op Alt + Q om het Microsoft Visual Basic for Applications-venster te verlaten.

Vanaf nu worden, wanneer je het werkboek opslaat, alle filters automatisch gewist.

Filters wissen bij het sluiten/verlaten van een werkboek in Excel

In de laatste sectie laten we je zien hoe je alle filters over werkbladen heen kunt wissen wanneer je het werkboek sluit of verlaat.

1. Open het werkboek waaruit je automatisch alle filters wilt wissen, en druk vervolgens op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisWorkbook in het linker Project-paneel, en kopieer en plak vervolgens de onderstaande VBA-code in het ThisWorkbook (Code)-venster. Zie screenshot:

copy and paste the code into ThisWorkbook module

VBA-code: Alle filters over werkbladen heen wissen bij het sluiten/verlaten van een werkboek

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

Opmerking: Als je alleen de filters in het huidige werkblad wilt wissen, gebruik dan de onderstaande VBA-code.

VBA-code: Filter in actief werkblad wissen bij het sluiten van een werkboek

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    Set ws = ActiveSheet
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
End Sub

3. Druk op Alt + Q om het Microsoft Visual Basic for Applications-venster te verlaten.

Vanaf nu worden alle filters automatisch gewist nadat je op de knop Sluiten in het werkboek hebt geklikt.

Gerelateerde artikelen:

Beste productiviteitstools voor Office

🤖 Kutools AI Assistent: Transformeer data-analyse door: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools functies aanroepen…
Populaire functies: Dubbele waarden markeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies |   Afronden zonder formule...
Super ZOEKEN: Meervoudig-criteria opzoeken | Meervoudige waarde opzoeken | Meervoudig-blad opzoeken | Fuzzy Match....
Geavanceerde keuzelijst: Keuzelijst snel maken | Afhankelijke keuzelijst | Meervoudige selectie in keuzelijst....
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheidsstatus van verborgen kolommen wisselen | Bereik & kolommen vergelijken...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden via lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...)...
Top15 gereedschapssets:12 teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) | 50+ grafiek typen (Gantt-diagram, ...) | 40+ praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) | 19 invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & splitsgereedschappen (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer
Gebruik Kutools in je voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

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.

Excel Word Outlook Tabs PowerPoint
  • 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