mit Zahlen funktioniert die Farben, ich möchte aber Buchstaben benutzen.
Nun die Frage wie?, Da ist Guter Rat gefragt....
Schon mal Danke für die Hilfe
Udo
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 2
Case 2
Target.Interior.ColorIndex = 3
Case 3
Target.Interior.ColorIndex = 4
Case 4
Target.Interior.ColorIndex = 5
Case 5
Target.Interior.ColorIndex = 6
Case 6
Target.Interior.ColorIndex = 56
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub