Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige