Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: zweimal farbige Zeilen ausblenden

zweimal farbige Zeilen ausblenden
24.10.2008 09:01:05
maruseru
Hallo werte Profis
Habe eine grosse Tabelle A1:AH7000
Alle doppelten Werte in Spalte D sind mit bedingter Formatierung farbig markiert
Nicht mehr benötigte Zeilen sind manuell in Spalte AC farbig markiert.
Nun möchte ich Folgendes:
Zuerst alle Zeilen mit Farbe in Spalte D ausblenden.
Danach in den restlichen Zeilen alle mit Farbe in Splate AC ausblenden.
Gruss
Maruseru
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zweimal farbige Zeilen ausblenden
24.10.2008 13:34:28
EffHa
Hallo Maruseru,
so sollte es eigentlich gehen.
Sub Ausblenden()
Dim I&, LetzteZeile&, LetzteSpalte&
LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row
For I = 2 To LetzteZeile
' z.B. die Zellen sind rot gefärbt
If Cells(I, 4).Interior.ColorIndex = 3 Then
Rows(I).EntireRow.Hidden = True
End If
Next
For I = 2 To LetzteZeile
' z.B. die Zellen sind rot gefärbt
If Rows(I).EntireRow.Hidden = False And Cells(I, 29).Interior.ColorIndex = 3 Then
Rows(I).EntireRow.Hidden = True
End If
Next
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige