Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt