Gruppe
Allgemein
Bereich
Ansicht
Thema
Zeilen mit Zellen mit rotem Hintergrund ausblenden
Problem
Wie kann ich alle Zeilen mit Zellen mit einem roten Hintergrund ausblenden?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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