Super, habe jetzt den Code verwendet, aber warum geht das nicht z.b. bei 30 und 40 ???
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
If Target.Cells.Count > 1 Then Exit Sub 'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
Set Bereich = Range("A1:C1, A5:D5, C8:F8") 'Hier wird der Bereich, in dem der Code seine Wirkung hat, eingestellt
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
Select Case Target.Value
Case "k"
Target.Interior.ColorIndex = 3 'Hintergrundfarbe
Target.Font.ColorIndex = 2 'Schriftfarbe
Case "s"
Target.Interior.ColorIndex = 4 'Hintergrundfarbe
Target.Font.ColorIndex = 2 'Schriftfarbe
Case "30"
Target.Interior.ColorIndex = 5 'Hintergrundfarbe
Target.Font.ColorIndex = 2 'Schriftfarbe
Case "40"
Target.Interior.ColorIndex = 7 'Hintergrundfarbe
Target.Font.ColorIndex = 2 'Schriftfarbe
Case Else
Target.Interior.ColorIndex = 2 'Hintergrundfarbe
Target.Font.ColorIndex = 0 'Schriftfarbe
End Select
Set rngBereich = Nothing
End Sub