in der ich das datum eingebe und mir dann automatisch die kalenderwoche berechnet wird. wie mach ich das ?
danke im vorraus !
danke im vorraus !
Dim tmp As Double
tmp = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
KalenderWoche = (Date - tmp - 3 + (Weekday(tmp) + 1) Mod 7) \ 7 + 1
Application.StatusBar = "KW: " & KalenderWoche _
& ", heute ist " & Heute & ", " & Date
Bis denne,
Maik
BTW: Bitte gib beim nächsten mal ein etwas aussagekräftigeres Subject an, das erhöht Deine Chancen auf Antworten ungemein. Ein einfaches "Wichtig!" sagt zum einen nichts aus und wirkt zum anderen recht primitiv, denn wichtig ist hier jede Frage. Ebenso solltest Du nicht schreien (durchgehende Großschreibung).
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen