Ich möchte aber die Schriftfarbe für jeden Tag in einer andere Farbe darstellen.
Farbindex für Mo=1,Di=53,Mi=46,Do=29,Fr=4,Sa=10,So=3 , so stelle ich mir das vor.
Ich hoffe das mir nach Möglichkeit gehofen wird.
Gruß Dieter
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Calculate()
Dim rng As Range
On Error Resume Next
For Each rng In Range("G4:G10")
rng.Offset(0, 1).Font.ColorIndex = Choose(Weekday(rng, vbMonday), 1, 53, 46, 29, 4, 10, 3)
Next
On Error GoTo 0
End Sub