Kalenderwoche in VBA- eine Worksheet-Function tutŽs auch..

08/11/2008 - 08:35 von KUS | Report spam
Hi all,

ich benötige eine Funktion in VBA , die die Kalenderwoche zu einem Datum
liefert (Date).

Eine Worksheetfunktion tutŽs natürlich genauso gut.

Hat jemand eine Idee oder einen Tip?

Vielen Dank im voraus!

Kai Uwe
Köln, Germany
 

Lesen sie die antworten

#1 Dietmar Vollmeier
08/11/2008 - 09:29 | Warnen spam
*KUS* schrieb am 08.11.2008 um 8:35 Uhr...

Ein Realname [1] wird hier gerne gesehen und erhöht die
Wahrscheinlichkeit auf Antworten enorm ;-)

ich benötige eine Funktion in VBA , die die Kalenderwoche zu einem
Datum liefert (Date).

Eine Worksheetfunktion tutŽs natürlich genauso gut.

Hat jemand eine Idee oder einen Tip?



Es gibt die Funktion KALENDERWOCHE() im Add-In "Analyse-Funktionen",
diese ist allerdings, für DE, etwas 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<--[ Code ]>8
Function KW(ByVal d As Date) As Integer
KW = (d-DateSerial(Year(d-((d-2) Mod 7)+3),1,(d-2) Mod 7 -9))\7
End Function
8<->8

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



und tschüss,
Didi

Fußnötiges:
=[1] http://einklich.net/usenet/rules.htm#name
"Die Mauer wird in 50 und auch in 100 Jahren noch bestehen bleiben,
wenn die dazu vorhandenen Gründe noch nicht beseitigt worden sind."

Ähnliche fragen