ich verzweifel bei der Suche. Wer kann mir bei meinem Problem helfen?
Ich möchte die gesamte Zeile ausblenden, wenn die Zelle in Spalte A rot ist. Farbe ist die Hintergrundfarbe.
Sebastian
Sub rot()
Dim RNG As Range
Application.ScreenUpdating = False
For Each RNG In Range("A1:A15") 'Bereich anpassen
If RNG.Interior.ColorIndex = 3 Then Rows(RNG.Row).EntireRow.Hidden = True
Next
End Sub
Gruß MatthiasSub rot()
Dim RNG As Range
Application.ScreenUpdating = False
For Each RNG In Range("A1:A15") 'Bereich anpassen
Rows(RNG.Row).EntireRow.Hidden= RNG.Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
End Sub
Gruß Gerd