Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Eingeblendete Zeilen mit Werten zählen
Problem
Es sollen die Zeilen gezählt werden, die Werte enthalten und nicht ausgeblendet sind.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub VisibleRowsCount()
Dim iRow As Integer, iRowL As Integer, iColL As Integer, iCounter As Integer
iColL = Cells(1, 256).End(xlToLeft).Column
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Rows(iRow).Hidden = False Then
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
iCounter = iCounter + 1
End If
End If
Next iRow
MsgBox iCounter
End Sub