Kalenderwoche als Zellenformat?

G. Lock

unread,

Jan 28, 2002, 3:00:51 AM1/28/02

to

Moin,

gibt es eine Möglichkeit einer Excel-Zelle das
Format Kalenderwoche zuzuordnen?
(Excel 2002/XP)
Danke für Infos.

Joerg Moeller

unread,

Jan 28, 2002, 5:28:38 AM1/28/02

to

"G. Lock" <quic...@gmx.de> schrieb:

>gibt es eine Möglichkeit einer Excel-Zelle das
>Format Kalenderwoche zuzuordnen?
>(Excel 2002/XP)

Ja. (Zumindest bei Excel 2000)
Sieh mal in der Hilfe zum Stichwort "Kalenderwoche" nach.

Kurz: Die Syntax lautet "=Kalenderwoche(A1;2)"
Dann sollte das Datum in A2 stehen und die 2 am Ende bewirkt, daß von
einem Montag als Wochenbeginn ausgegangen wird.

Wenn du dann noch als Benutzerdefiniertes Zellenformat "KW 00" angibst
(ohne Anführungszeichen) angibst, wird das Ergebnis mit
vorangestelltem "KW" und zweistellig angegeben.

HTH
Jörg

Joerg Moeller

unread,

Jan 28, 2002, 5:46:40 AM1/28/02

to

Joerg Moeller <Joerg.M...@t-online.de> schrieb:

>Kurz: Die Syntax lautet "=Kalenderwoche(A1;2)"
>Dann sollte das Datum in A2 stehen und die 2 am Ende bewirkt, daß von
>einem Montag als Wochenbeginn ausgegangen wird.

Sorry, verschrieben. Das Datum sollte bei diesem Beispiel natürlich in
A1 stehen.

mfg
Jörg

Thomas Ramel

unread,

Jan 28, 2002, 6:04:47 AM1/28/02

to

Grüezi G.Lock und Jörg

Joerg Moeller schrieb:

>
> "G. Lock" <quic...@gmx.de> schrieb:
>
> >gibt es eine Möglichkeit einer Excel-Zelle das
> >Format Kalenderwoche zuzuordnen?
>

> Ja. (Zumindest bei Excel 2000)
> Sieh mal in der Hilfe zum Stichwort "Kalenderwoche" nach.
>
> Kurz: Die Syntax lautet "=Kalenderwoche(A1;2)"
> Dann sollte das Datum in A2 stehen und die 2 am Ende bewirkt, daß von
> einem Montag als Wochenbeginn ausgegangen wird.

Dem ist noch hinzuzufügen, dass die Funktion KALENDERWOCHE() nicht nach
DIN 1355 (min. 4 Tage für die erste Woche, d.h. der Donnerstag ist
entscheidend) rechnet.

Dafür benutze ich eine hier in der NG schon oft genannte
benutzerdefinierte Funktion:

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

--
Mit freundlichen Grüssen

Thomas Ramel
http://www.4853.ch/Schlesinger
http://www.swissgeo.ch/mapit.php3?www=http//www.4853.ch/Schlesinger&swissgeo_id=241718

Andreas Kleinert

unread,

Jan 28, 2002, 2:52:03 PM1/28/02

to

Hi,

*****************************

Dafür benutze ich eine hier in der NG schon oft genannte
benutzerdefinierte Funktion:

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

***********************

oder auch die von Peter Dorigo beschriebene/entwickelte? Formel :

=KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2));1;-10))/7)
Datum in Zelle A1
Die o.g. Formel in z.B. Zelle A2 errechnet die Kalenderwoche
Und das ganze ohne VBA, ohne Macro

Gruß
Andy

Dieter Lock

unread,

Jan 29, 2002, 6:35:37 AM1/29/02

to

Sorry, bin erst heute dazu gekommen in die Group
zu schauen.
Ich check das heute mal. Danke für die Hilfestellung!

Grüße
G.L.