Es gibt sicher ein Commando, das die leeren/nicht leeren Zellen/Zeilen innerhalb eines Berechs "A1:A20" zählt. (mit einer Schlaufe keine Problem)
Danke für Lösungen
mfg
Pepi
Sub test()
Dim r As Range
Set r = Range("A1:A20")
'Zeilen insgesamt im Bereich
Debug.Print r.Rows.Count
'Zeilen beschrieben im Bereich
Debug.Print WorksheetFunction.CountA(r)
'Zeilen leer im Bereich
Debug.Print r.Rows.Count - WorksheetFunction.CountA(r)
End Sub
Grüße,