Alle sichtbaren Zeilen zählen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

217003    216303

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