Excel und VBA - Die Excel-FAQ

Zeilen mit Zellen mit rotem Hintergrund ausblenden

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Zeilen mit Zellen mit rotem Hintergrund ausblenden

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