Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgeblendete Zeilen/Spalten

Ausgeblendete Zeilen/Spalten
23.03.2003 13:47:15
Christoph
Hallo Excel Freunde

Wie kann ich die Anzahl ausgeblendeter Zeilen ermitteln.

Gruss Christoph

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ausgeblendete Zeilen/Spalten
23.03.2003 14:26:28
Ramses

Hallo Christoph,

das geht mit vertretbarem Rechenaufwand nur im benutzten Bereich:


Option Explicit

Sub Count_Unvisible_Rows()
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 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Von unten her aufgerollt ... tolle Idee!! Staun...
23.03.2003 22:38:39
Franz W.



Danke :-) o.T.
24.03.2003 21:50:12
Ramses

...

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige