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 SubHinweise:
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.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Demo: Alle Blätter außer dem aktuell aktiven mit Kutools für Excel löschen
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins