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ß GerdDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen