Wie löscht man alle leeren Arbeitsblätter in Excel?
Wenn Sie eine Arbeitsmappe mit zahlreichen Arbeitsblättern haben, die zudem einige Leeres Arbeitsblatt enthält, und Sie nun die Leeres Arbeitsblatt löschen möchten, um die Datei zu speichern oder zu archivieren – wie können Sie dann automatisch nach leeren Blättern suchen und diese aus mehreren Arbeitsblättern löschen?
Alle Leeres Arbeitsblatt mit VBA-Code löschen
Alle Leeres Arbeitsblatt mit Kutools für Excel löschen
Alle Leeres Arbeitsblatt mit VBA-Code löschen
Es ist mühsam, leere Arbeitsblätter einzeln zu prüfen und nacheinander zu entfernen. Mit dem folgenden VBA-Code können Sie jedoch problemlos alle leeren Arbeitsblätter auf einmal löschen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA: Alle Leeres Arbeitsblatt löschen
Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
3. Drücken Sie anschließend die Taste F5, und alle leeren Arbeitsblätter werden auf einmal gelöscht.
Alle Leeres Arbeitsblatt mit Kutools für Excel löschen
Wenn Sie mit VBA-Code nicht vertraut sind, stelle ich Ihnen gerne ein einfaches Tool vor – Kutools für Excel. Mit seiner Funktion Leere Blätter löschen entfernen Sie alle leeren Arbeitsblätter mit nur einem Klick.
Kutools für Excel umfasst mehr als 300 praktische Excel-Tools – testen Sie es jetzt kostenlos und uneingeschränkt für 30 Tage! Jetzt herunterladen.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Leere Blätter löschen, siehe Screenshot:
2.Es erscheint daraufhin ein Bestätigungsdialog, der Sie fragt, ob Sie wirklich alle Leeres Arbeitsblatt löschen möchten, siehe Screenshot:
3. Klicken Sie dann auf Ja, und das leere Arbeitsblatt wurde erfolgreich gelöscht. Siehe Screenshots:
 |
 |
 |
Wenn Sie mehr über diese Funktion erfahren möchten, klicken Sie bitte hier: Leere Blätter löschen.
Verwandter Artikel:
Wie löscht man ausgeblendete Arbeitsblätter 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