wie kann ich per VBA die Anzahl der von Zeile 1:110 ausgeblendeten Zeilen ermitteln?
Micha
anzahl = Range("A1:A110").Cells.Count - _
Range("A1:A110").SpecialCells(xlCellTypeVisible).Cells.Count
Gruß, JogySub huhu()
Dim zae1 As Integer, zae2 As Integer
For zae1 = 1 To 110
If ActiveSheet.Rows(zae1).EntireRow.Hidden = True Then zae2 = zae2 + 1
Next zae1
MsgBox "Anzahl ausgeblendeter Zellen: " & zae2
End Sub