Excel und VBA - Die Excel-FAQ

Alle sichtbaren Zeilen zählen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Alle sichtbaren Zeilen zählen

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