Excel-VBA kann Arbeitsblattfunktionen über Application.WorksheetFunction aufrufen. Das Beispiel zählt numerische Werte in E1:E5 und leere Zellen in E1:E9:

Sub ZellenZaehlen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Tabelle2")

    ws.Range("E6").Value = _
        Application.WorksheetFunction.Count(ws.Range("E1:E5"))
    ws.Range("E10").Value = _
        Application.WorksheetFunction.CountBlank(ws.Range("E1:E9"))
End Sub

Count zählt Zahlen und Datumswerte, denn Excel speichert Datumsangaben intern als Zahlen. Textwerte werden nicht mitgezählt. CountBlank zählt tatsächlich leere Zellen und Formeln, deren Ergebnis eine leere Zeichenfolge ist. Eine Zelle mit einem Leerzeichen gilt nicht als leer.

Die Beispiele verwenden unterschiedliche Bereiche für beide Zählungen. Wenn ein Fehlerwert im Bereich möglich ist, kann WorksheetFunction einen Laufzeitfehler auslösen; prüfen oder behandeln Sie solche Werte bei Bedarf.

Quellen und Prüfstand

Inhaltlich überarbeitet am 2026-10-13. Zählregeln von Excel und Bereichsbezüge präzisiert.