Bereichsanpassung z. einfärben d. Formelergebnisse
sharky1000
ich möchte in einer Tabelle Formelergebnisse abhängig vom Ergebnis einfärben.
Zur automatischen Aktualisierung verwende ich die Funktion =HEUTE() in einer Zelle.
Wie passe ich das folgende, hier gefundene Makro an, dass es nur für den Zellbereich C4:N33 greift?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ' Wenn Fokus auf Spalte A dann ...
Select Case Cells(Target.Row, 1) ' ... selektierte Zelle prüfen ob Inhalt ...
Case Is = "Meier" ' gleich "Meier", dann ...
Cells(Target.Row, 1).Interior.ColorIndex = 3 ' Hintergrundfarbe rot
Case Is = "Müller" ' gleich "Müller", dann ...
Cells(Target.Row, 1).Interior.ColorIndex = 6 ' Hintergrundfarbe gelb
Case Is = "Huber" ' gleich "Huber", dann ...
Cells(Target.Row, 1).Interior.ColorIndex = 7 ' Hintergrundfarbe pink
Case Is = "Schmidt" ' gleich "Schmidt", dann ...
Cells(Target.Row, 1).Interior.ColorIndex = 8 ' Hintergrundfarbe cyan
Case Is = ""
Cells(Target.Row, 1).Interior.ColorIndex = 0
' hier können weitere Zuweisungen folgen
End Select ' Ende Anweisung
End If
End Sub
Danke im Voraus für Eure Hilfe.