Ich habe ca. 100 Zeilen und würde gerne alle ausblenden wo zwischen Spalte A und F keine Zelle mit der Farbe Rot markiert ist.
Die rot Markierung entsteht über eine bedingte Formatierung.
Vielleicht kann mir wer helfen.
Liebe Grüsse
Tomislav
Sub Hide_Zeilen_mir_Farbe_rot()
On Error Resume Next
'letzte Zeile in Spalte A suchen
Dim Zeilenanzahl as Long
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'letzte Spalte in Zeile 1 suchen - falls alle Spalten durchsucht werden sollen
Dim Spaltenanzahl as Integer
'Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'Spalte F
Spaltenanzahl = 6
Dim i As Long, n As Integer, myColor As Boolean
For i = 2 To Zeilenanzahl
For n = 1 To Spaltenanzahl
Cells(i, n).Select
'Falls Du mal alles farbige (Hintergrund) ausblenden willst
'If Cells(i, n).Interior.ColorIndex xlNone Then
If Cells(i, n).Interior.ColorIndex = 3 Then
myColor = True
Exit For
End If
Next n
If myColor = False Then
Rows(i).Hidden = True
End If
myColor = False
Next i
End Sub
Greetz
Vinz