Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingeblendete Zeilen mit Werten zählen

Gruppe

Arbeitsblatt

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