Wie kann ich per vba prüfen, ob eine zelle leer ist?
Um zu überprüfen, ob eine Zelle leer ist, können Sie die ISEMPTY-Funktion von VBA verwenden. In dieser Funktion müssen Sie das Bereichsobjekt verwenden, um die Zelle anzugeben, die Sie überprüfen möchten. Es gibt „true“ zurück, wenn diese Zelle leer ist, andernfalls „false“. Sie können ein Meldungsfeld oder eine Zelle verwenden, um das Ergebnis abzurufen.
Verwenden Sie VBA, um zu überprüfen, ob eine Zelle leer ist
- Beginnen Sie mit dem Funktionsnamen „IsEmpty“.
- Geben Sie die Zelle an, die Sie überprüfen möchten.
- Verwenden Sie ein Meldungsfeld oder eine Zelle, um den Ergebniswert abzurufen.
- Führen Sie am Ende den Code aus.
MsgBox IsEmpty(Range("A1"))
Überprüfen Sie, ob mehrere Zellen leer sind
Wenn Sie leere Zellen in einem Bereich überprüfen und zählen möchten, müssen Sie über jede Zelle im Bereich iterieren.
Sub vba_check_empty_cells() Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange c = c + 1 If IsEmpty(myCell) Then i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "." End Sub
Der obige Code durchläuft jede Zelle im Bereich A1:A10 und überprüft jede Zelle einzeln mit der Funktion ISEMPTY, ob sie leer ist oder nicht.
Und jede leere Zelle wird gezählt und am Ende wird ein Meldungsfeld mit der Gesamtzahl der Zellen und leeren Zellen angezeigt.
Verwenden Sie den folgenden Code, wenn Sie auch leere Zellen hervorheben möchten.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "."