Wie entfernt man leere Arbeitsblätter aus einer Excel-Arbeitsmappe
Angenommen, Sie arbeiten mit einer umfangreichen Arbeitsmappe, die mehrere Blätter enthält – darunter jedoch auch einige völlig leere Blätter ohne jeglichen Inhalt. Um Ihre Arbeitsmappe professioneller und übersichtlicher zu gestalten, möchten Sie diese überflüssigen leeren Blätter entfernen. Anstatt sie mühsam einzeln zu löschen, zeigt Ihnen dieser Leitfaden effiziente Methoden, um alle leeren Blätter schnell und auf einen Schlag zu entfernen.
Alle leeren Blätter mithilfe von VBA entfernen
Alle leeren Blätter mithilfe von Kutools für Excel entfernen 
Alle leeren Blätter mithilfe von VBA entfernen
Hier stelle ich ein VBA-Skript vor, das Ihnen hilft, alle leeren Blätter schnell aus der geöffneten Arbeitsmappe zu entfernen.
1. Drücken Sie 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 VBA-Code in das neu geöffnete Modul-Fenster ein.
VBA: Leere Arbeitsblätter entfernen.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um das VBA-Skript auszuführen. Es erscheint ein Dialogfeld, das Sie fragt, ob die leeren Blätter entfernt werden sollen. Klicken Sie auf Ja, um fortzufahren, oder auf Nein, um den Vorgang abzubrechen.
4. Nachdem Sie auf Ja geklickt haben, erscheint ein Dialogfeld mit der Anzahl der entfernten Blätter. Klicken Sie auf OK, um es zu schließen – anschließend werden alle leeren Blätter entfernt.
Alle leeren Blätter mithilfe von Kutools für Excel entfernen
Für Excel-Anfänger kann die Verwendung von VBA eine etwas schwierige Methode sein. Mit der Funktion Kutools für Excel’s Leere Blätter löschen können Sie jedoch alle leeren Blätter mit nur drei Mausklicks blitzschnell aus einer Arbeitsmappe entfernen!
1. Öffnen Sie die Arbeitsmappe, aus der Sie leere Blätter entfernen möchten, und klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Leere Blätter löschen. Siehe Screenshot:
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
Verwandte Artikel:
- Wie kann man Duplikate aus einer Liste in Excel zählen und entfernen?
- Wie löscht man eine Zeichenfolge nach dem n-ten Zeichen in Excel?
- Wie entfernt man Text innerhalb von Klammern in Excel?
- Wie entfernt man Linienformen in 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