Note: The other languages of the website are Google-translated. Back to English

Hoe een werkblad te verwijderen op basis van de celwaarde in Excel?

Stel dat ik meerdere werkbladen in een werkmap heb, nu wil ik de bladen verwijderen op basis van de celwaarde. Als de specifieke cel A1 bijvoorbeeld de tekst "KTE" bevat, moeten alle bladen met deze tekst in cel A1 in één keer worden verwijderd. Dit artikel kan u helpen om deze taak in Excel uit te voeren.

Verwijder werkblad op basis van celwaarde met VBA-code


pijl blauw rechts bel Verwijder werkblad op basis van celwaarde met VBA-code

Hier zal ik een code voor u introduceren om alle bladen te verwijderen waarvan de specifieke cel een bepaalde waarde heeft, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen 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, A1 is de specifieke cel die bepaalde tekst bevat waarvan u de bladen wilt verwijderen op basis van.

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de specifieke waarde in te voeren waarop u de bladen wilt verwijderen, zie screenshot:

doc blad per cel verwijderen 1

4. En klik vervolgens op OK knop, zijn alle bladen waarvan cel A1 de tekst KTE heeft, in één keer verwijderd. Zie screenshot:

doc blad per cel verwijderen 2


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (4)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
snelle vraag, de bovenstaande code werkt voor mij voor het verwijderen van werkbladen die de ingevoerde waarde bevatten, maar wat als ik werkbladen wil verwijderen die geen ingevoerde waarde bevatten. Ik heb geprobeerd de operator "=" te vervangen door de operator <>", maar het werkt niet. Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Ankur,
Zoals je al zei, hoef je alleen maar de "=" in " <>" te veranderen zoals onderstaande code:

Sub deletesheetbycell()
Dim shName As String
Dim xName als string
Dim xWs als werkblad
Dim cnt als geheel getal
shName = Application.InputBox ("Voer de tekst in en verwijder de bladen niet op basis van:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
Voor elke xWs in dit werkboek. Bladen
Als xWs.Bereik ("A1"). Waarde <> shName Dan
xWs.Verwijderen
cnt = cnt + 1
End If
Volgende xWs
Application.DisplayAlerts = True
MsgBox "Hebben verwijderd" & cnt & "werkbladen", vbInformation, "Kutools for Excel"
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Goedenmiddag,
Kunt u mij vertellen of er een manier is om automatisch ja te antwoorden wanneer u wordt gevraagd om het blad te verwijderen? Heel erg bedankt.
Deze opmerking is gemaakt door de moderator op de site
Hallo nogmaals, Nevermind op mijn laatste vraag. Ik heb het volgende toegevoegd voor en na de Delete-regel: Application.DisplayAlerts = False
Application.DisplayAlerts = True

Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties