Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kalenderwoche

Forumthread: Kalenderwoche

Kalenderwoche
03.01.2005 16:46:08
Heino
Hallo Excelgemeinde
Ich habe folgendes in meinem Makro um die Aktuelle Kalenderwoche zu ermitteln.
DatePart("ww", Now)
Das hat im Jahr 2004 auch gut funktioniert.
Leider liefert mir diese Zeile heute die KW 2 obwohl doch die KW1 ist.
Woran kann das liegen ?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche
=Peter=
Das liegt an folgendem:
http://de.wikipedia.org/wiki/Kalenderwoche#Kalenderwoche
Beheben kannst du das wie folgt:
http://www.excelformeln.de/formeln.html?welcher=7
Man kann auch eine benutzerdefinierte Funktion verweden (in ein Modul einfügen)

Function DIN_KW(Datum As Date) As Integer
'   von Christoph Kremer, Aachen
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

HTH
Anzeige
AW: Kalenderwoche
Heino
Hallo
Ich Danke Dir.
Mit der benutzerdefinierte Funktion geht es am besten.
Gruß Heino
Danke für die Rückmeldung o.T.
=Peter=
Gruss
Peter
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige