Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
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
22.08.2006 16:28:19
Gregor
Hallo zusammen
Ich habe eine umfangreiche Tabelle, in der ich alle Zeilen ausblenden will, in denen die Spalten O bis R leer sind.
Zeilenbereich 10 bis letzte Zeile (diese verändert sich laufend)
Ich versuchte es mit der Funktion Hidden = True
komme aber nicht weiter.
Danke und Gruss
Gregor
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden
22.08.2006 16:54:01
Matthias
Hallo Gregor,
versuch' mal dies:

Sub Ausblenden()
Dim lz As Long, z As Long
'ermitteln der letzten Zeile aus Spalte 1 (also A):
lz = Cells(Rows.Count, 1).End(xlUp).Row
For z = 10 To lz
Rows(z).Hidden = (WorksheetFunction.CountA(Range(Cells(z, 15), Cells(z, 18))) = 0)
Next z
End Sub

Gruß Matthias
Anzeige
AW: Zeilen ausblenden
22.08.2006 20:44:02
Gregor
Hallo Matthias
Das klappt wunderbar, vielen Dank.
Gregor
;

Beliebteste Forumthreads (12 Monate)

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