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 Sub

3. 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:

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?