in meinen Kalendermonaten wird die jeweilige Kalenderwoche mit diesem Makro:
Option Explicit
Rem UDF zur Ermittlung jeweiliger Kalenderwoche nach DIN 1355
Function dKW(dat As Date)
Dim a As Long
On Error GoTo fx
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = dKW(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7
über die Formel =WENN(WOCHENTAG(B5)=2;dKW(B5);"") im Bereich A5:A35 eingetragen.
Wie kann ich mittels Makro erreichen, dass jede 4 Wochenzahl (1,5,9,13 usw.)farblich hervorgehoben wird?
Ich bräuchte eine Makrolösung, da die Bedingte Formatierung ausscheidet.
Gruß
mike49