Hoe verwijder je alle werkbladen behalve het opgegeven/huidige in Excel?

Om alle werkbladen in een Excel-werkboek te verwijderen, behalve het opgegeven of momenteel actieve werkblad, kun je dit als volgt aanpakken.

Verwijder alle werkbladen behalve het opgegeven met VBA-code
Eén klik om alle werkbladen behalve het huidig actieve te verwijderen met Kutools voor Excel

Verwijder alle werkbladen behalve het opgegeven met VBA-code

Met de onderstaande VBA-code kun je alle werkbladen in een werkboek verwijderen, behalve een opgegeven werkblad in Excel.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic Application-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Verwijder alle werkbladen behalve de opgegeven

Sub DeleteSheets1() Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then xWs.Delete End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Opmerkingen:

1. “Sheet1” en “Sheet2” zijn de werkbladen die je wilt behouden in het huidige werkboek. Je kunt ze wijzigen op basis van je behoeften.

2. Als je alle werkbladen wilt verwijderen maar meerdere opgegeven werkbladen wilt behouden, voeg dan And xWs.Name <> "je werkblad naam" toe vóór het Then-sleutelwoord in de 6e regel van de code. Bijvoorbeeld: If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "je werkblad naam" Then

3. Als je slechts één werkblad wilt behouden en alle andere uit het werkboek wilt verwijderen, verwijder dan alle And -voorwaarden in de code. Bijvoorbeeld, om Sheet1 in het huidige werkboek te behouden, moet je de zesde regel van de code wijzigen naar: If xWs.Name <> "Sheet1" Then

Verwijder alle werkbladen behalve het huidig actieve met Kutools voor Excel (Slechts één klik)

Je kunt eenvoudig alle werkbladen behalve het huidig actieve werkblad verwijderen met slechts één klik via de Delete All Inactive Sheets- functie van Kutools voor Excel.

1. Klik op Kutools Plus > Werkblad > Delete All Inactive Sheets. 

3. Er verschijnt een dialoogvenster. Als je zeker weet dat je alle werkbladen behalve het actieve wilt verwijderen, klik dan op de OK-knop, anders klik je op de Annuleren-knop.

Alle werkbladen worden verwijderd, behalve het momenteel actieve werkblad in je werkboek.

Demo: Verwijder alle werkbladen behalve het huidig actieve met Kutools voor Excel