Gruppe
Allgemein
Problem
Es solle die sichtbare Zeilen gezählt und die Anzahl als Meldung ausgegeben werden.
StandardModule: Modul1
Sub VisibleRowsCount()
Dim lRows As Long
Dim rng As Range
Set rng = Cells.SpecialCells(xlCellTypeVisible)
lRows = rng.Cells.Count / 256
MsgBox "Sichtbare Zeilen: " & lRows
End Sub