So entfernen Sie leere Blätter aus einer Excel-Arbeitsmappe
Angenommen, Sie haben eine große Arbeitsmappe mit mehreren Blättern, aber es gibt einige leere Blätter ohne jeglichen Inhalt. Um die Arbeitsmappe professioneller und formeller zu gestalten, möchten Sie diese leeren Blätter aus der Arbeitsmappe entfernen. Anstatt die leeren Blätter einzeln zu entfernen, stellt dieser Leitfaden Methoden vor, um alle leeren Blätter schnell zu entfernen.
Alle leeren Blätter mit VBA entfernen
Alle leeren Blätter mit Kutools für Excel entfernen 
Alle leeren Blätter mit VBA entfernen
Hier stelle ich ein VBA vor, das Ihnen hilft, schnell alle leeren Blätter aus einer geöffneten Arbeitsmappe zu entfernen.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual for Basic Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den unten stehenden VBA-Code in das neu geöffnete Modulfenster ein.
VBA: Leere Blä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 auszuführen. Ein Dialogfeld wird erscheinen, das 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, das die Anzahl der entfernten Blätter anzeigt. Klicken Sie auf OK, um es zu schließen, und alle leeren Blätter werden entfernt.
Alle leeren Blätter mit Kutools für Excel entfernen
Für Excel-Anfänger kann die Verwendung von VBA eine etwas schwierige Methode sein. Aber mit der Funktion „ Leere Blätter löschen“ von Kutools für Excel können Sie schnell alle leeren Blätter aus einer Arbeitsmappe mit drei Mausklicks entfernen!
1. Öffnen Sie die Arbeitsmappe, aus der Sie die leeren Blätter entfernen möchten, und klicken Sie auf Kutools Plus > Arbeitsblatt > Leere Blätter löschen. Siehe Screenshot:
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
Verwandte Artikel:
- Wie zählt und entfernt man Duplikate aus einer Liste in Excel?
- Wie löscht man einen String nach dem n-ten Zeichen in Excel?
- Wie entfernt man Text innerhalb von Klammern in Excel?
- Wie entfernt man Linienformen in Excel?
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