Hoe een werkblad verwijderen op basis van celwaarde in Excel?

Als u meerdere werkbladen in een werkboek heeft en bepaalde bladen wilt verwijderen op basis van de inhoud van een specifieke cel, kan VBA helpen bij het automatiseren van deze taak. U wilt bijvoorbeeld alle bladen verwijderen waar cel A1 een bepaald woord of zin bevat. Deze handleiding laat zien hoe u VBA kunt gebruiken om deze bladen snel te identificeren en te verwijderen in Excel.

Verwijder werkblad op basis van celwaarde met VBA-code

Verwijder werkblad op basis van celwaarde met VBA-code

Hier introduceer ik een code waarmee u alle bladen kunt verwijderen waarin een specifieke cel een bepaalde waarde heeft. Volg hiervoor de volgende 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 Modulevenster.

VBA-code: Verwijder werkblad 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 bovenstaande code is A1 de specifieke cel die de tekst bevat waarop u de bladen wilt verwijderen.

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat u eraan herinnert om de specifieke waarde in te voeren waarop u de bladen wilt verwijderen, zie screenshot:

4. Klik vervolgens op de knop OK, alle bladen waarin cel A1 de tekst KTE bevat, zijn in één keer verwijderd. Zie screenshot: