Wie kann ich die Anzahl ausgeblendeter Zeilen ermitteln.
Gruss Christoph
Wie kann ich die Anzahl ausgeblendeter Zeilen ermitteln.
Gruss Christoph
das geht mit vertretbarem Rechenaufwand nur im benutzten Bereich:
Sub Count_Unvisible_Rows()
Code eingefügt mit Syntaxhighlighter 1.16
Option Explicit
Dim i As Long, cr As Long, rCounter As Long
rCounter = 0
cr = 65536
If Cells(cr, 1) = "" Then
cr = Cells(cr, 1).End(xlUp).Row
End If
For i = cr To 1 Step -1
If Rows(i).Hidden = True Then
rCounter = rCounter + 1
End If
Next i
MsgBox rCounter & " Zeilen ausgeblendet"
End Sub
Gruss Rainer
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen