Wie löscht man ein Arbeitsblatt basierend auf einem Zellenwert in Excel?

Wenn Sie mehrere Arbeitsblätter in einer Arbeitsmappe haben und bestimmte Blätter basierend auf dem Inhalt einer bestimmten Zelle löschen müssen, kann VBA helfen, diese Aufgabe zu automatisieren. Zum Beispiel möchten Sie vielleicht alle Blätter entfernen, in denen Zelle A1 ein bestimmtes Wort oder eine bestimmte Phrase enthält. Dieser Leitfaden zeigt Ihnen, wie Sie VBA verwenden können, um diese Blätter in Excel schnell zu identifizieren und zu löschen.

Arbeitsblatt basierend auf Zellenwert mit VBA-Code löschen

Arbeitsblatt basierend auf Zellenwert mit VBA-Code löschen

Hier stelle ich Ihnen einen Code vor, mit dem Sie alle Blätter löschen können, in denen die spezifische Zelle einen bestimmten Wert hat. Gehen Sie bitte wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Arbeitsblatt basierend auf Zellenwert löschen:

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

Hinweis: Im obigen Code ist A1 die spezifische Zelle, die den Text enthält, auf dessen Grundlage Sie die Blätter löschen möchten.

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und es erscheint ein Eingabefenster, das Sie auffordert, den spezifischen Wert einzugeben, auf dessen Grundlage Sie die Blätter löschen möchten, siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und alle Blätter, in denen Zelle A1 den Text KTE enthält, werden auf einmal gelöscht. Siehe Screenshot: