Wie kann man alle Blätter außer dem angegebenen/aktuellen in Excel löschen?

Um alle Blätter in einer Excel-Arbeitsmappe außer dem angegebenen oder aktuell aktiven Blatt zu löschen, können Sie dies wie in den unten gezeigten Methoden handhaben.

Alle Blätter außer dem angegebenen mit VBA-Code löschen
Mit einem Klick alle Blätter außer dem aktuell aktiven mit Kutools für Excel löschen

Alle Blätter außer dem angegebenen mit VBA-Code löschen

Mit dem folgenden VBA-Code können Sie alle Blätter in einer Arbeitsmappe außer einem angegebenen in Excel löschen.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, dann kopieren und fügen Sie den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Alle Blätter außer den angegebenen löschen

Sub DeleteSheets1() Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then xWs.Delete End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Hinweise:

1. „Sheet1“ und „Sheet2“ sind die Blätter, die Sie in der aktuellen Arbeitsmappe behalten möchten. Sie können sie je nach Bedarf ändern.

2. Wenn Sie alle Blätter außer mehreren angegebenen Blättern löschen möchten, fügen Sie And xWs.Name <> "Ihr Blattname" vor dem Then Schlüsselwort in der 6. Zeile des Codes hinzu. Zum Beispiel: If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "Ihr Blattname" Then

3. Wenn Sie nur ein Blatt behalten und alle anderen aus der Arbeitsmappe löschen möchten, entfernen Sie alle And-Bedingungen im Code. Zum Beispiel, um Sheet1 in der aktuellen Arbeitsmappe beizubehalten, müssen Sie den Code in der sechsten Zeile ändern zu: If xWs.Name <> "Sheet1" Then

Alle Blätter außer dem aktuell aktiven mit Kutools für Excel löschen (nur ein Klick)

Sie können ganz einfach alle Blätter außer dem aktuell aktiven Blatt mit nur einem Klick über das Hilfsprogramm Delete All Inactive Sheets von Kutools für Excel löschen.

1. Klicken Sie auf Kutools Plus > Arbeitsblatt > Delete All Inactive Sheets. 

3. Dann erscheint ein Dialogfeld. Wenn Sie bestimmt sind, alle Blätter außer dem aktiven zu löschen, klicken Sie auf die Schaltfläche OK, andernfalls klicken Sie auf die Schaltfläche Abbrechen.

Dann werden alle Blätter außer dem aktuell aktiven in Ihrer Arbeitsmappe gelöscht.

Demo: Alle Blätter außer dem aktuell aktiven mit Kutools für Excel löschen