Hallo liebe Leute,
Aus zwei Comboboxen bekomme ich den Monat und das Jahr meiner Wahl ausgegeben. Nun möchte Ich eine Tabelle anlegen, bei der anhand dieser Eingabe die Anzahl der Monatstage berechnet wird und jeder Samstag und Sonntag im Monat grau eingefärbt wird (zwei unterschiedliche Graustufen). Die Anzahl der Tage habe ich schon wie folgt ermittelt:
StrConvertDate = Trim("1/" & CStr(Monat) & "/" & CStr(Jahr))
d = Format(StrConvertDate, "mm.yyyy")
If IsDate(d) Then
AnzTageMonat = Day(DateSerial(Year(d), Month(d) + 1, 0))
End If
Bemerke: Hier stehen Monat und Jahr für die jeweiligen Comboboxen aus den Ich die Werte bekommen habe. Die Monate sind ausgeschrieben.
Nun fehlt mir noch die Einfärbung, wo ich nicht weiter weiß. Kann mir jemand helfen?
|