Schriftfarbe per VBA ändern
08.02.2004 17:10:47
toni
Habe gestern folgende tolle VBA Lösung über Zellhintergrundfarbänderungen erhalten.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Farbe
If Target.Column <> 4 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case 1: Farbe = 36
Case 2: Farbe = 15
Case 3: Farbe = 20
Case 4: Farbe = 4
Case Else: Farbe = xlColorIndexNone
End Select
Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = Farbe
Range(Cells(Target.Row, 11), Cells(Target.Row, 13)).Interior.ColorIndex = Farbe
Range(Cells(Target.Row, 15), Cells(Target.Row, 30)).Interior.ColorIndex = Farbe
End Sub
Nun bin ich so unverschämt und möchte noch gerne die Schriftfarbe automatisch
festlegen.
Und zwar wenn in den Zellen C "Sa" steht auf Schriftfarbe Dunkelblau (Farbe 5) und wenn "So" steht Schriftfarbe rot (Farbe 3).
Die Änderung soll für die gesamte jeweilige Zeile in der auch der Text Sa oder So steht gelten. Die Änderung der Hintergrundfarbe soll wie im vorstehenden VBA aungeführt bestehen bleiben.
Derzeit habe ich die Schriftfarbe für Sa und So über Bedingte Formatierung gelöst was nicht so gut funktioniert weil es verschiebungen gibt wenn zwischendurch Werte eingefügt werden.
Würde mich über eine Lösung die beide Farbeinstellungen in einem VBA erledigt sehr freuen.
Herzlichen Dank
Toni