Wie löscht man ein Blatt, wenn der Name spezifischen Text aus der Arbeitsmappe enthält?

Angenommen, Sie haben eine Arbeitsmappe mit mehreren Arbeitsblättern und möchten nun die Blätter anhand der Tabellennamen löschen. Wenn zum Beispiel der Name des Blatts den spezifischen Text „KTE“ enthält, soll es gelöscht werden, wie im folgenden Screenshot dargestellt. Wie könnten Sie die Blätter sofort löschen, wenn der Name einen bestimmten Text enthält, ohne sie einzeln zu löschen?

Blätter löschen, wenn der Name spezifischen Text mit VBA-Code enthält

Blätter löschen, wenn der Name spezifischen Text mit VBA-Code enthält

Hier erstelle ich einen VBA-Code für Sie, um die Blätter anhand des Namens zu löschen. Bitte gehen Sie 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 in das Modulfenster ein.

VBA-Code: Blätter löschen, wenn der Name spezifischen Text enthält

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Dialogfeld erscheint, das Sie auffordert, den spezifischen Text einzugeben, auf dessen Basis Sie das Blatt löschen möchten, siehe Screenshot:

4. Klicken Sie anschließend auf OK, und alle Blätter, deren Name den angegebenen Text „KTE“ enthält, werden auf einmal gelöscht. Siehe Screenshot:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!