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

zeilen ausblenden

Forumthread: zeilen ausblenden

zeilen ausblenden
23.09.2004 13:13:00
Marco
wie kann man folgenden vorgang vereinfachen ich moechte alle zeilen
ausblenden in denen am anfang in zelle a eine 0 steht
ActiveSheet.Range("A1").EntireRow.Hidden = Range("A1").Value = 0
dies wuerde fuer die erste zeile gelten nun habe ich aber keine lust diese
zeile fuer die naechsten 500 zeilen zu schreiben
ActiveSheet.Range("A1").EntireRow.Hidden = Range("A1").Value = 0
ActiveSheet.Range("A2").EntireRow.Hidden = Range("A2").Value = 0
ActiveSheet.Range("A3").EntireRow.Hidden = Range("A3").Value = 0
.
.
.
usw
wie kann ich mir die sache vereinfachen
vielen dank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeilen ausblenden
Angie
AW: zeilen ausblenden
Uduuh
Hallo,

Sub ausblenden()
dim i as long
for i= 1 to cells(65536,1).end(xlup).row
cells(i,1).entirerow.hidden=cells(i,1).value=0
next i
End Sub

Gruß aus'm Pott
Udo
AW: zeilen ausblenden
Marco
vieeeeeeeellllllen dank funzt
viele gruesse aus madrid
von einem ruhrpottler auf reisen
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige