Zeilen formatbedingt ausblenden
05.02.2004 10:58:43
Ralf.P
ich möchte über VBA Zeilen ausblenden, wenn sie in Spalte A nicht einer bestimmten Farbe entsprechen.
Folgender Code funktioniert, dauert aber extrem lange.
Gibt`s evtl. eine schnellere Lösung???
Sub filter()
Application.screenupdating = False
For Each cell in Range("A5:A8000")
If Not cell.Interior.ColorIndex = 8 Then
x = cell.Row
Rows(x & ":" & x).Hidden = True
End If
Next
Application.screenupdating = True
End Sub
MfG Ralf