In deze zelfstudie leert u hoe u een werkblad kunt verwijderen of wissen met VBA.
Werkblad verwijderen
Gebruik de opdracht delete om een werkblad te verwijderen.
Werkblad op naam verwijderen
| 1 | Bladen ("Blad1").Verwijderen |
Werkblad verwijderen op indexnummer
Deze code verwijdert het eerste werkblad in de werkmap:
| 1 | Bladen(1).Verwijderen |
Deze code verwijdert het laatste werkblad in de werkmap:
| 1 | Vellen (Vellen.Aantal).Verwijderen |
Werkblad verwijderen zonder prompt
Wanneer u probeert een werkblad te verwijderen, vraagt Excel u om uw actie te bevestigen:
U kunt deze prompts (waarschuwingen) uitschakelen door DisplayAlerts in te schakelen:
| 123 | Application.DisplayAlerts = FalseBladen ("Blad1").VerwijderenApplication.DisplayAlerts = True |
Blad verwijderen als het bestaat
Als u probeert een werkblad te verwijderen dat niet bestaat, genereert VBA een fout. Met On Error Resume Next kun je VBA vertellen om een blad te verwijderen als het bestaat, anders ga je naar de volgende regel code:
| 123 | Bij fout Hervatten volgendeBladen ("Blad1").VerwijderenBij fout Ga naar 0 |
U kunt ook onze RangeExists-functie gebruiken om te controleren of een blad bestaat en zo ja, deze te verwijderen.:
| 123 | Als RangeExists ("Blad1") DanBladen ("Blad1").VerwijderenStop als |
Blad wissen
Met deze code wordt een volledig blad met inhoud, indelingen en al het andere gewist:
| 1 | Bladen ("Blad1"). Cellen. Wissen |
Inhoud van het blad wissen
Met deze code wordt de inhoud van een volledig blad gewist. Het laat opmaak, opmerkingen en al het andere met rust:
| 1 | Bladen ("Blad1"). Cellen.ClearContents |
Clear Sheet GebruiktBereik
De bovenstaande voorbeelden zullen ALLE cellen in een werkblad wissen. Bij grote platen kan dit erg tijdrovend zijn. Als u in plaats daarvan de UsedRange gebruikt, wist VBA alleen de "gebruikte" cellen die waarden, indelingen, enz. bevatten.
| 1 | Bladen ("Blad1").UsedRange.Clear |
