Microsoft Excel

Herbers Excel/VBA-Archiv

zweimal farbige Zeilen ausblenden | Herbers Excel-Forum


Betrifft: zweimal farbige Zeilen ausblenden von: maruseru
Geschrieben am: 24.10.2008 09:01:05

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

  

Betrifft: AW: zweimal farbige Zeilen ausblenden von: EffHa
Geschrieben am: 24.10.2008 13:34:28

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


Beiträge aus den Excel-Beispielen zum Thema "zweimal farbige Zeilen ausblenden"