Hoe verwijdert u een werkblad in Excel op basis van een celwaarde?
Als u meerdere werkbladen hebt in een werkmap en bepaalde bladen wilt verwijderen op basis van de inhoud van een specifieke cel, helpt VBA u deze taak eenvoudig te automatiseren. Denk bijvoorbeeld aan het verwijderen van alle bladen waarin cel A1 een bepaald woord of een specifieke zin bevat. In deze handleiding leest u hoe u met VBA die bladen snel identificeert en verwijdert in Excel.
Werkblad verwijderen op basis van celwaarde met VBA-code
Werkblad verwijderen op basis van celwaarde met VBA-code
Hieronder vindt u een code waarmee u alle werkbladen kunt verwijderen waarin een specifieke cel een bepaalde waarde bevat. Volg hiervoor de onderstaande stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Werkblad verwijderen op basis van celwaarde:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub
Opmerking: In de bovenstaande code is A1 de specifieke cel die bepaalde tekst bevat op basis waarvan u de bladen wilt verwijderen.
3. Druk vervolgens op de F5-toets om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de specifieke waarde in te voeren op basis waarvan u de bladen wilt verwijderen. Zie de schermafbeelding:
4. Klik daarna op de knop OK, waarna alle bladen waarin cel A1 de tekst KTE bevat, tegelijkertijd worden verwijderd. Zie de schermafbeelding:
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