Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle sichtbaren Zeilen zählen

Gruppe

Arbeitsblatt

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