Dieses kleine VBA Makro können wir dazu nutzen um einen Bereich auf Einträge zu prüfen. Sinnvoll kann so etwas auch sein, wenn man denkt, dass ein Bereich leer ist, sich aber ein Leerzeichen in einer Zelle befindet.

Sub Bereich_leer()
Dim rngBereich As Range
Set rngBereich = Range("A1:E5")
With rngBereich
    If Application.WorksheetFunction.CountA(.Cells) > 0 Then
        MsgBox ("Der Bereich hat einen Eintrag.")
    Else
        MsgBox ("Der Bereich ist leer.")
    End If
End With
End Sub

Dieses Makro können wir auch schnell für ganze Tabellenblätter umbauen.

Sub Tabellenblatt_leer()
Dim objwks As Worksheet
Set objwks = ActiveWorkbook.Worksheets(1)
With objwks
    If Application.WorksheetFunction.CountA(.Cells) > 0 Then
        MsgBox ("Die Tabelle hat einen Eintrag.")
    Else
        MsgBox ("Die Tabelle ist leer.")
    End If
End With
End Sub