Selektion bedingter Formate
24.09.2002 13:55:23
PeterH
Kann mir jemand helfen.
Ich habe ein Makro geschrieben das mir alle Zeilen herausfiltert die ein rotes Feld haben. Das funktioniert auch soweit - aber -
jene Zellen die durch eine bedingte Formatierung rot wurden werden dabei leider nicht berücksichtigt.
Was ist an der Formel Falsch?
Gruß
Peter
Sub Unerledigte()
Application.ScreenUpdating = False
Range("T7:z467").Select
Selection.EntireRow.Hidden = True
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 3 Then
Zelle.EntireRow.Hidden = False
End If
Next Zelle
Application.ScreenUpdating = True
End Sub