kann man alle Zeilen, die z.B. im Zellbereich D1:E500 die Zellfarbe "Gelb" haben, einblenden und alle anderen ausblenden?
Herzliche Grüße
Bernd
Sub til()
Dim c As Range
Application.ScreenUpdating = 0
[D1:E500].EntireRow.Hidden = -1
For Each c In [D1:E500]
If c.Interior.ColorIndex = 6 Then c.EntireRow.Hidden = 0
Next
Application.ScreenUpdating = -1
End Sub
mfg Kurt