Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Cells(Target.Row, Target.Column).Interior.ColorIndex
Case Is < 0
Cells(Target.Row, Target.Column).Interior.ColorIndex = Farbe
Case Is > 0
Farbe = Cells(Target.Row, Target.Column).Interior.ColorIndex
End Select
End Sub