@Rastermen
Die Formel sollte nicht unbedingt in B1 an sichtbarer Stelle stehen - außer du willst die aktuelle KW angezeigt haben…
Die Bedingte Formatierung muss, alle Zellen mit den desten Kalenderwochen markiert, einfach nur vergleichen ob «=$B$1» und dann wird im Falle dessen das dafür eingestellte Format angewendet.
@rainberg
Und die Formel ändert man mühsam von Hand jedes Jahr, muss ermitteln welche gewissen Rollen ein 4.1. und 2.1 spielen. (Ich weiß es…)
Deswegen wies ich auf VBA hin:
Public Function KalenderWoche(Datum As Date) As Integer
'Kalenderwochen nach DIN 1355
'Algorithmus von Christoph Kremer, Aachen
Dim T
T = DateSerial(Year(Datum + (8 - WeekDay(Datum)) Mod 7 - 3), 1, 1)
KalenderWoche = (Datum - T - 3 + (WeekDay(T) + 1) Mod 7) \ 7 + 1
End Function
Ich weiß jetzt nicht ob man das, ggf. auf mehre Rechenzellen verteilt, per Formel abbilden könnte.
Anmerkung:
Ich habe obige Berechnung bei mir stillgelegt und nun stattdessen die Zeile
«KalenderWoche = Format(Datum, "ww", vbMonday, vbFirstFourDays)»
stehen - aber ich traue dem Braten (wegen DIN) jetzt nicht mehr.
Einer Hervorhebung der aktuellen KW per Formel + Bedingte Formatierung wäre ich nicht mal abgeneigt, ich hätte nämlich selbst ein Einsatzfeld erspäht.
Eric March
