Hoe verwijder ik een werkblad als de bladnaam niet in de lijst staat?
Stel dat u een werkblad hebt met een lijst van bladnamen uit de werkmap in kolom A, zoals in de afbeelding hieronder te zien is. Sommige bladnamen uit de werkmap staan niet in deze lijst. Hoe verwijdert u snel en eenvoudig alle bladen die niet voorkomen in de lijst in kolom A?
Werkbladen verwijderen die niet in een specifieke lijst staan met VBA-code
Werkbladen verwijderen die niet in een specifieke lijst staan met VBA-code
Normaal gesproken controleert u de bladnamen één voor één en verwijdert u diegene die niet voorkomen in het blad Namenlijst. In dit geval bespreek ik echter een VBA-code om dit proces te automatiseren. Volg hiervoor de onderstaande stappen:
1. Ga naar het werkblad dat de bladlijst Namenlijst bevat en druk daarna op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik daarna op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Werkbladen verwijderen die niet in een lijst staan
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "No sheets found to delete.", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted " & cnt & " worksheets."
End If
End Sub
Opmerking: In de bovenstaande code is A2:A6 de celverwijzing met de bladnamen; u kunt deze naar wens aanpassen.
3. Druk vervolgens op de toets F5 om deze code uit te voeren. De werkbladen die niet in de lijst staan, worden direct verwijderd. Zie de afbeelding:
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