VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle sichtbaren Zeilen zählen

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

    


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