Hoe verwijdert u alle werkbladen in Excel, behalve het opgegeven of huidige werkblad?

Om alle werkbladen in een Excel-werkboek te verwijderen, behalve het opgegeven of huidige actieve werkblad, kunt u de onderstaande aanpak volgen.

Verwijder alle werkbladen behalve het opgegeven werkblad met VBA-code
Verwijder met één klik alle werkbladen behalve het huidig actieve werkblad met Kutools voor Excel

Verwijder alle werkbladen behalve het opgegeven werkblad met VBA-code

Met de onderstaande VBA-code verwijdert u alle werkbladen in een werkmap, behalve het opgegeven werkblad in Excel.

1. Druk tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

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

VBA-code: Verwijder alle werkbladen behalve de opgegeven werkbladen

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 u wilt behouden in het huidige werkboek. U kunt deze naar wens aanpassen.

2. Als u alle werkbladen wilt verwijderen, maar meerdere opgegeven werkbladen wilt behouden, voegt u And xWs.Name „uw werkbladnaam” vóór het trefwoord Then in de zesde regel van de code toe. Bijvoorbeeld: If xWs.Name „Sheet1” And xWs.Name „Sheet2”And xWs.Name „uw werkbladnaam” Then

3. Als u slechts één werkblad wilt behouden en alle andere uit de werkmap wilt verwijderen, verwijdert u alle And-voorwaarden uit de code. Wilt u bijvoorbeeld Sheet1 behouden in het huidige werkboek, dan wijzigt u de zesde regel van de code als volgt:If xWs.Name „Sheet1” Then

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

U kunt eenvoudig alle werkbladen verwijderen behalve het huidige Huidig werkblad met slechts één klik via het hulpprogramma Alle niet-actieve werkbladen verwijderenvan Kutools voor Excel.

1. Klik op KUTOOLS PLUS > Werkblad > Alle niet-actieve werkbladen verwijderen.

3. Vervolgens verschijnt er een dialoogvenster. Als u zeker weet dat u alle werkbladen behalve het actieve wilt verwijderen, klikt u op de knop OK. Klikt u daarentegen op de knop Annuleren als u dit niet wilt.

Vervolgens worden alle werkbladen verwijderd, behalve het huidige actieve werkblad in uw werkmap.

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

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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...

Meer details over Kutools voor Excel...Gratis downloaden...

---

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!

Meer details over Office Tab...Gratis downloaden...

---

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

Meer details over Kutools for Office...Gratis downloaden...