Excel und VBA - Die Excel-FAQ

Eingeblendete Zeilen mit Werten zählen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

Eingeblendete Zeilen mit Werten zählen

Problem: Es sollen die Zeilen gezählt werden, die Werte enthalten und nicht ausgeblendet sind.


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