Formel für Kalenderwoche

02/09/2008 - 09:09 von Johannes Marquart | Report spam
Hallo zusammen,

ich nutze eine selbststrickte Formel, um über das aktuelle Datum die
aktuelle und zuückliegende Kalenderwochen zu berechnen.
Diese Formel iust nicht ganz genau.

Gibt es eine Kalenderfunktion in Excel (2003), die mir die Kalenderwoche
bei Eingabe eines Datums auwirft?

Danke und viele Grüße,
Johannes
 

Lesen sie die antworten

#1 Dietmar Vollmeier
02/09/2008 - 09:33 | Warnen spam
*Johannes Marquart* schrieb am 02.09.2008 um 9:09 Uhr...
Gibt es eine Kalenderfunktion in Excel (2003), die mir die
Kalenderwoche bei Eingabe eines Datums auwirft?



Es gibt die Funktion KALENDERWOCHE() im Add-In "Analyse-Funktionen",
diese ist aber ebenfalls ungenau.

Besser geht es mit der Formel (Datum steht in diesem Fall in A2)
=KÜRZEN((A2-DATUM(JAHR(A2+3-REST(A2-2;7));1;REST(A2-2;7)-9))/7)

oder mit der selbstgestrickten Funktion "KW"

-8<--
Function KW(dat As Date) As Integer
Dim a As Integer

a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1

If a = 0 Then
a = KW(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 _
And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) _
Mod 7 <= 3 Then
a = 1
End If

KW = a
End Function
-8<--

Anwenden kannst du diese dann z.B. mit
=KW(HEUTE()) oder =KW(A2)


HTH und tschüss,
Didi
Diese Nachricht ist zu 100% biologisch abbaubar!

Ähnliche fragen