Hallo,
ich möchte gern den sichbaren Bereich zwischen A2 und A* (Last Row) zählen. Mein Code sieht so aus:
Sub Zählen()
Dim LastRow As Long
With Worksheets("Tabelle1")
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
MsgBox WorksheetFunction.CountA(Sheets("Tabelle1").Range("A2:" & LastRow))
End With
End Sub
Leider funktioniert das ganze nicht, kann mir Bitte jemand helfen
Dankeschön
|