habe hier einen Code gefunden mit dem ich Zellen färben kann wenn verschuedene Buchstaben drin stehen. Hier wird aber nur die kommplette Zeile angegeben. Ich habe aber mehr Bereiche zb. D1:J1, D4:J4, D2:J9. Könnt ihr mir da helfen das ich den Code so umstellen kann das ich die verschiedenen Bereiche eintargen kann.
Gruß Susi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 10 Then
Select Case Cells(10, Target.Column)
Case Is = "A"
Cells(10, Target.Column).Interior.ColorIndex = 3
Case Is = "B"
Cells(10, Target.Column).Interior.ColorIndex = 6
Case Is = ""
Cells(10, Target.Column).Interior.ColorIndex = xlNone
' hier können weitere Zuweisungen folgen
End Select
End If
End Sub