Farbformate erhalten
14.10.2006 15:57:14
Rainer
mit folgendem Makro ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F6"), Target) Is Nothing Then
Range("A1:F6").Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 6
End If
End Sub
... markiere ich die aktuelle Zeile - die alten Farbformatierungen gehen verloren. Gibt es eine einfache Möglichkeit, die alten Farbformate nach Verlassen der Zeile wieder zu erhalten?
Gruss Rainer