VBA: sichtbare Zeilen zählen?

[Peter]

Guten Tag

Mit folgendem Code durchlaufe ich ein Tabellenblatt.
Dabei will ich überprüfen, ob die Zeile sichtbar ist.
Wenn ja, dann wird sie gezählt.

Jedoch scheint das Object ActiveCell die Eigenschaft "visible" bzw. "Hidden"
nicht zu kennen. Wie lautet die korrekte Syntax?

Do Until ActiveCell.Value = ""
If Not ActiveCell.Hidden Then
int_rowcount = int_rowcount + 1
End If
ActiveCell.Offset(1, 0).Select
Loop

Vielen Dank und Grüsse
Peter

[Herbert Taferner]

Hallo Peter,

versuchs mal so,

Do Until ActiveCell.Value = ""
If Not Rows(ActiveCell.Row).Hidden = True Then
int_rowcount = int_rowcount + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox int_rowcount

mfg Herbert

[unknown]

Hallo Peter,
folgende Beispielprozedurzeigt dir eine Vorgehensweise:

Sub Zaehlen()
Dim rngRow As Range
Dim intI As Integer
For Each rngRow In Selection.Rows
If rngRow.Hidden = False Then
intI = intI + 1
End If
Next
MsgBox intI
End Sub

Anmerkung:
Markiere eine Bereich bei dem die sichtbaren Zellen gezählt werden
sollen und starte das Makro.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprojekte#