Wie löscht man ein Blatt, wenn der Blattname nicht in einer Liste enthalten ist?

Angenommen, ich habe eine Arbeitsmappe mit einer Liste von Blattnamen innerhalb der Arbeitsmappe in Spalte A, wie im folgenden Screenshot gezeigt. Einige bestimmte Blattnamen in der Arbeitsmappe sind nicht in der Liste enthalten. Nun möchte ich die Blätter löschen, die nicht in der Liste von Spalte A enthalten sind. Wie kann ich diese Aufgabe in Excel schnell und einfach lösen?

Blätter löschen, die nicht in einer bestimmten Liste enthalten sind, mit VBA-Code

Blätter löschen, die nicht in einer bestimmten Liste enthalten sind, mit VBA-Code

Normalerweise können Sie die Blattnamen einzeln überprüfen und diejenigen löschen, die nicht in der Liste der Blattnamen enthalten sind. Hier möchte ich jedoch einen VBA-Code vorstellen, um dies zu erledigen. Bitte gehen Sie wie folgt vor:

1. Gehen Sie zum Arbeitsblatt, das die Liste der Blattnamen enthält, und drücken Sie dann die Tastenkombination ALT + F11, 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, die nicht in einer Liste enthalten sind

Sub Deletenotinlist()
'Updateby Extendoffice
    Dim i As Long
    Dim cnt As Long
    Dim xWb, actWs As Worksheet
    Set actWs = ThisWorkbook.ActiveSheet
    cnt = 0
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Not ThisWorkbook.Sheets(i) Is actWs Then
            xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
            If IsError(xWb) Then
                ThisWorkbook.Sheets(i).Delete
                cnt = cnt + 1
            End If
        End If
    Next
    Application.DisplayAlerts = True
    If cnt = 0 Then
        MsgBox "No sheets found to delete.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted " & cnt & " worksheets."
    End If
End Sub

Hinweis: Im obigen Code ist A2:A6 der Zellbezug, der die Blattnamen enthält. Sie können ihn bei Bedarf ändern.

3. Drücken Sie anschließend die Taste F5, um den Code auszuführen. Die Blätter, die nicht in der Liste enthalten sind, werden sofort gelöscht, siehe Screenshot: