Erste ausgeblendete Zeile einblenden



Excel-Version: 2000
nach unten

Betrifft: Erste ausgeblendete Zeile einblenden
von: Bernhard
Geschrieben am: 10.05.2002 - 18:40:31

Im Bereich Range("A4:Z37")befinden sich auch ausgeblendete Zeilen. Die erste dieser ausgeblendeten Zeilen soll einblendet werden. Versuche es schon eine Weile mit count.HiddenRows und dann -1, aber es klappt nicht.

Schon mal Dank im Voraus für die Mühen

Gruß Bernhard

nach oben   nach unten

Re: Erste ausgeblendete Zeile einblenden
von: Schuhmann Eberhard
Geschrieben am: 10.05.2002 - 19:09:20

Hallo Bernhard

Eine Lösung wäre mit einer Schleife alle Zeilen abfragen.


Sub ErsteEinblenden()
Dim intRow As Long
intRow = 4
Do Until Rows(intRow).Hidden = True
   intRow = intRow + 1
   'Ende für Schleife können auch weniger sein
   If intRow = 65536 Then Exit Sub
Loop
Rows(intRow).Hidden = False
End Sub

vielleicht hilfts !!

Gruß Eberhard


nach oben   nach unten

Re: Erste ausgeblendete Zeile einblenden
von: Bernhard
Geschrieben am: 10.05.2002 - 20:04:30

Danke für die schnelle Hilfe. Noch läufts nicht durch. An der Stelle

Rows(intRow).Hidden = False

erhalte ich immer die Meldung: Die Hidden-Eigenschaft des Range Objekts kann nicht festgelegt werden. Hab schon ein wenig rumgedoktert - komm aber nicht auf ne Lösung.

Gruß Bernhard

nach oben   nach unten

Re: Erste ausgeblendete Zeile einblenden
von: Bernhard
Geschrieben am: 10.05.2002 - 20:14:53

Alles zurück - nun klappts. Hab vergessen den Blattschutz aufzuheben!!!

Nochmals vielen Dank

und ein schönes Wochenende

Gruß Bernhard


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Erste ausgeblendete Zeile einblenden"