Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Alle sichtbaren Zeilen zählen
Problem
Es solle die sichtbare Zeilen gezählt und die Anzahl als Meldung ausgegeben werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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