Guten Morgen,
was muss ich tun, damit bei Case 1 die Schriftfarbe weiss wird?
With Target
Select Case .Value
Case 1: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 3
Case 2: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 6
Case 3: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 4
Case 4: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 5
Case Else: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = xlNone
End Select
End With
End Sub