Sub CheckobEmpty()
Dim Bereich As Range
Set Bereich = Selection
If Not Bereich.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich) Then
MsgBox "Im selektierten Bereich sind nicht alle Zelle leer", vbOKOnly, _
"Check-Ob-Leer"
Else
MsgBox "Im selektierten Bereich sind alle Zelle leer", vbOKOnly, _
"Check-Ob-Leer"
End If
End Sub
Sub aaTest1()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich2) Then
'Bereich ist leer
GoTo weiter2
Else
'Bereich ist nicht leer
'Code wenn nicht leer
End If
weiter2:
'weitere Anweisungen nachdem gefüllter Bereich bearbeitet wurde
End Sub
Sub aaTest2()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count Application.WorksheetFunction.CountBlank(Bereich2) Then
'Bereich ist nicht leer
'Code wenn nicht leer
End If
'weitere Anweisungen nachdem gefüllter Bereich bearbeitet wurde
End Sub
'oder wenn bei leerem Bereich gar nichts mehr gemacht werden soll
Sub aaTest2()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count Application.WorksheetFunction.CountBlank(Bereich2) Then Exit Sub
'Bereich ist nicht leer
'Code wenn nicht leer
End Sub
Um zu prüfen, ob ein Bereich in Excel leer ist, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, um dies zu erreichen:
Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineArbeitsmappe)“, wähle „Einfügen“ und dann „Modul“.
Füge den folgenden Code ein:
Sub CheckobEmpty()
Dim Bereich As Range
Set Bereich = Selection
If Not Bereich.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich) Then
MsgBox "Im selektierten Bereich sind nicht alle Zellen leer", vbOKOnly, _
"Check-Ob-Leer"
Else
MsgBox "Im selektierten Bereich sind alle Zellen leer", vbOKOnly, _
"Check-Ob-Leer"
End If
End SubSchließe den VBA-Editor: Drücke ALT + Q.
Wähle den Bereich aus: Markiere den Bereich, den Du überprüfen möchtest.
Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“ und wähle CheckobEmpty aus.
Mit diesem einfachen VBA-Skript kannst Du effektiv prüfen, ob ein Bereich leer ist.
Fehler: "Fehler beim Kompilieren: Erwartet: End Sub"
End Sub steht.Fehler: "Der gewählte Bereich enthält formatierten Text"
CountBlank, um leere Zellen zu zählen.Neben VBA gibt es auch Möglichkeiten, dies direkt in Excel zu überprüfen:
Mit der Funktion COUNTBLANK:
Du kannst die Anzahl der leeren Zellen in einem Bereich mit der Funktion =COUNTBLANK(A1:A10) herausfinden. Wenn das Ergebnis gleich der Anzahl der Zellen im Bereich ist, ist der Bereich leer.
Mit einer WENN-Bedingung:
Du kannst auch eine Formel wie =WENN(COUNTBLANK(A1:A10)=ANZAHL(A1:A10); "Bereich ist leer"; "Bereich ist nicht leer") verwenden.
Beispiel 1: VBA-Makro zur Prüfung eines definierten Bereichs
Sub CheckBereich()
Dim Bereich As Range
Set Bereich = Range("A1:A10")
If Bereich.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich) Then
MsgBox "Der Bereich A1:A10 ist leer."
Else
MsgBox "Der Bereich A1:A10 ist nicht leer."
End If
End SubBeispiel 2: Excel-Formel
Gib in eine Zelle ein:
=WENN(COUNTBLANK(A1:A10)=ANZAHL(A1:A10); "Bereich ist leer"; "Bereich ist nicht leer")Beide Methoden helfen Dir, schnell zu erkennen, ob ein Bereich leer ist.
Application.WorksheetFunction.CountBlank für verbesserte Performance, wenn Du große Datenmengen prüfst.Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.1. Wie kann ich prüfen, ob ein Bereich nur bestimmte Zellen leer hat?
Du kannst die Funktion COUNTBLANK auf spezifische Zellen anwenden, um nur die leeren Zellen in einem bestimmten Bereich zu zählen.
2. Funktioniert dies in Excel 365? Ja, das VBA-Skript und die Formeln funktionieren in allen aktuellen Excel-Versionen, einschließlich Excel 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen