farbige Zelle finden
bissi
Private Sub Worksheet_Activate()
Dim c
For Each c In UsedRange
If c.Interior.ColorIndex = 7 Then
c.Select: End
End If
Next
End Sub