Gruppe
Allgemein
Problem
Wie kann ich alle Zeilen mit Zellen mit einem roten Hintergrund ausblenden?
StandardModule: basMain
Sub Ausblenden()
Dim rng As Range
For Each rng In Range("A1:C100").Cells
If rng.Interior.ColorIndex = 3 Then
Rows(rng.Row).Hidden = True
End If
Next rng
End Sub