Wie löscht man alle Arbeitsblätter in Excel – mit Ausnahme eines bestimmten oder des aktuellen Arbeitsblatts?
Um alle Arbeitsblätter in einer Excel-Arbeitsmappe mit Ausnahme des angegebenen oder des aktuell aktiven Arbeitsblatts zu löschen, können Sie eine der folgenden Methoden verwenden.
Löschen aller Arbeitsblätter mit Ausnahme eines bestimmten Arbeitsblatts mithilfe von VBA-Code
Ein Klick, um alle Arbeitsblätter mit Ausnahme des aktuell aktiven Arbeitsblatts mit Kutools für Excel zu löschen
Löschen aller Arbeitsblätter mit Ausnahme eines bestimmten Arbeitsblatts mithilfe von VBA-Code
Mit dem folgenden VBA-Code können Sie alle Arbeitsblätter einer Arbeitsmappe in Excel löschen – bis auf ein bestimmtes Arbeitsblatt Ihrer Wahl.
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und kopieren Sie anschließend den unten stehenden VBA-Code in das Modulfenster.
VBA-Code: Löschen aller Arbeitsblätter mit Ausnahme bestimmter Arbeitsblätter
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. „Tabelle1“ und „Tabelle2“ sind die Arbeitsblätter, die Sie in der aktuellen Arbeitsmappe behalten möchten. Passen Sie diese ganz einfach Ihren Anforderungen an.
2. Wenn Sie alle Arbeitsblätter löschen möchten, aber mehrere bestimmte Arbeitsblätter behalten wollen, fügen Sie vor dem Schlüsselwort Then in der sechsten Codezeile folgenden Ausdruck ein: And xWs.Name „Ihr Arbeitsblattname“. Beispiel: If xWs.Name "Tabelle1" And xWs.Name "Tabelle2"And xWs.Name „Ihr Arbeitsblattname" Then
3. Wenn Sie nur ein Arbeitsblatt behalten und alle anderen aus der Arbeitsmappe löschen möchten, entfernen Sie bitte alle And-Bedingungen im Code. Um beispielsweise „Tabelle1“ in der aktuellen Arbeitsmappe zu behalten, ändern Sie die sechste Codezeile wie folgt:If xWs.Name "Tabelle1" Then
Löschen aller Arbeitsblätter mit Ausnahme des aktuell aktiven Arbeitsblatts mit Kutools für Excel (nur ein Klick)
S ie können alle Arbeitsblätter mit Ausnahme des aktuellen Aktuelles Arbeitsblatt ganz einfach mit nur einem Klick mithilfe des Werkzeugs Alle inaktiven Arbeitsblätter löschenaus Kutools für Excelentfernen.
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Alle inaktiven Arbeitsblätter löschen.
3. Anschließend wird ein Dialogfeld geöffnet. Wenn Sie sicher sind, dass Sie alle Arbeitsblätter mit Ausnahme des aktiven Arbeitsblatts löschen möchten, klicken Sie auf die Schaltfläche OK. Andernfalls klicken Sie auf die Schaltfläche Abbrechen.
Anschließend werden alle Arbeitsblätter Ihrer Arbeitsmappe gelöscht – mit Ausnahme des aktuell aktiven.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Löschen aller Arbeitsblätter mit Ausnahme des aktuell aktiven Arbeitsblatts mit Kutools für Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins