Wie können Sie schnell prüfen, ob ein Arbeitsblatt in Excel leer ist?
Wenn sich in einer umfangreichen Arbeitsmappe einige leere Arbeitsblätter befinden – wie können Sie schnell prüfen, ob ein Arbeitsblatt leer ist, um es anschließend zu löschen? Excel bietet zwar keine integrierte Funktion, um direkt festzustellen, ob ein Arbeitsblatt leer ist. Daher stelle ich Ihnen hier einen praktischen VBA-Code vor, mit dem Sie genau das prüfen können.
Prüfen, ob ein Arbeitsblatt mit VBA leer ist
Prüfen, ob ein Arbeitsblatt mit VBA leer ist
Um zu prüfen, ob ein Arbeitsblatt leer ist, verwenden Sie einfach den folgenden Makrocode – so erkennen Sie im Handumdrehen, ob das Arbeitsblatt tatsächlich leer ist.
1. Aktivieren Sie das Arbeitsblatt, das Sie auf Leerheit prüfen möchten, und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen. Klicken Sie anschließend auf Einfügen > Modul, um ein neues Modul zu erstellen.
2. Fügen Sie im leeren Skript den folgenden Makrocode ein – siehe Screenshot:
VBA: Prüfen, ob ein Arbeitsblatt leer ist
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Speichern Sie den Code und drücken Sie F5, um ihn auszuführen. Danach erscheint ein Dialogfeld, das Sie darüber informiert, ob das Arbeitsblatt leer ist oder nicht.
 | ODER |  |
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