Direkt zum Inhalt

Wie lösche ich alle leeren Arbeitsblätter in Excel?

Wenn Sie eine Arbeitsmappe mit vielen Arbeitsblättern haben, sind in der Zwischenzeit einige leere Arbeitsblätter enthalten. Und jetzt möchten Sie die leeren Arbeitsblätter löschen, um die Datei zu speichern oder zu archivieren. Wie können Sie die leeren Blätter aus mehreren Arbeitsblättern suchen und automatisch löschen?

Löschen Sie alle leeren Arbeitsblätter mit VBA-Code

Löschen Sie alle leeren Arbeitsblätter mit Kutools for Excel

Pfeil blau rechte Blase Löschen Sie alle leeren Arbeitsblätter mit VBA-Code

Es ist schwierig für Sie, nach leeren Arbeitsblättern zu suchen und diese einzeln zu entfernen. Mit dem folgenden VBA-Code können Sie jedoch problemlos alle leeren Arbeitsblätter gleichzeitig löschen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Alle leeren Arbeitsblätter löschen

Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False für jedes Ws in Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Then Ws.Delete End Wenn Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Dann drücken F5 Taste, und alle leeren Arbeitsblätter werden auf einmal gelöscht.

Pfeil blau rechte Blase Löschen Sie alle leeren Arbeitsblätter mit Kutools for Excel

Wenn Sie mit dem VBA-Code nicht vertraut sind, kann ich Ihnen ein einfaches Tool vorstellen. Kutools for ExcelMit seinen Leere Arbeitsblätter löschen Funktion können Sie alle leeren Arbeitsblätter mit einem Klick entfernen.

Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt.

Wenn Sie Kutools für Excel installiert haben, gehen Sie wie folgt vor:

1. Klicken Sie Unternehmen > Arbeitsblatt-Tools > Leere Arbeitsblätter löschen, siehe Screenshot:

doc-delete-blank-sheet1

2. Ein Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, ob Sie alle leeren Arbeitsblätter löschen möchten oder nicht. Siehe Screenshot:

doc-delete-blank-sheet2

3. Dann klick Jaund die leeren Arbeitsblätter wurden erfolgreich gelöscht. Siehe Screenshots:

doc-delete-blank-sheet3
-1
doc-delete-blank-sheet4

Wenn Sie mehr über diese Funktion erfahren möchten, klicken Sie bitte auf Leere Arbeitsblätter löschen.

In Verbindung stehender Artikel:

Wie lösche ich versteckte Arbeitsblätter in Excel?

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations