Kalenderwoche

Forumthread: Kalenderwoche
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kalenderwoche

Kalenderwoche

25.08.2004 14:22:16

Nico

Hallo an Alle Excelianer,
sacht mal, hat die Funktion =Kalenderwoche()nen Fehler oder muss ich da noch irgendwas anderes schreiben, denn...
Nehmt mal den 04.01.04, dies ist bekanntlich ein Sonntag - der erste Sonntag im Jahr 2004 und somit auch der Sonntag der 1.KW 04. Excel schmeißt mir jedoch die KW 2 aus, woran liegt das?
Danke für ne Info
Nico

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kalenderwoche

Günther
AW: Kalenderwoche

Magic
AW: Kalenderwoche

25.08.2004 14:30:52

Nico

AW: Kalenderwoche

Günther

Hi Nico
das liegt daran dass EXCEL nach amerikanischem Muster die KW ermittelt und nicht nach DIN.
so gehts:

Tabelle1

	C	D
1	04.01.2004	1. KW
2	05.01.2004	2. KW
3	06.01.2004	2. KW

Formeln der Tabelle

D1 : =KÜRZEN((C1-WOCHENTAG(C1;2)-DATUM(JAHR(C1+4-WOCHENTAG(C1;2));1;-10))/7)&". KW"
D2 : =KÜRZEN((C2-WOCHENTAG(C2;2)-DATUM(JAHR(C2+4-WOCHENTAG(C2;2));1;-10))/7)&". KW"
D3 : =KÜRZEN((C3-WOCHENTAG(C3;2)-DATUM(JAHR(C3+4-WOCHENTAG(C3;2));1;-10))/7)&". KW"

Günther

AW: Kalenderwoche

Magic

Hallo Nico,
das liegt daran, dass der Sonntag im englischsprachigen Raum der erste Tag der Woche ist.
Wenn Du diese Funktion in deine Personl.xls speicherst kannst bekommst Du mit kWoche(DAtum) für den 04.01.04 die 1. KW angezeigt und für den 5.1. die 2.:
Public Function KWoche(datum As Date) KWoche = Format(datum, "WW", vbMonday, vbFirstFourDays) End Function
Gruß
Michael
p.s. Der Code ist nicht von mir sondern bei einem Seminar abgeschrieben. THX to R.Gill

AW: Kalenderwoche

25.08.2004 14:30:52

Nico

DANKESCHÖN. MAN LERNT NIE AUS.