Excel: Datum in Kalenderwoche umwandeln, wie?!

[cereal]

Hallo Leude,

habe obiges Problem. Kann jemand aushelfen ?!

Danke

Mfg

Cereal
http://img222.imageshack.us/my.php?image=forum7vk.jpg
http://img222.imageshack.us/my.php?image=forum7vk.jpg

[Kurgan]

geht nur über ne funktion (bin ich auch mal dran bekloppt geworden)


Function din_kw(datum As Date) As Integer
Dim i, j, k As Integer
i = datum - DateSerial(Year(datum), 1, 1)
k = WeekDay(DateSerial(Year(datum), 1, 1), vbMonday)
j = Int((i - (8 - k)) / 7) + 1
If k <= 4 Then j = j + 1
If j = 0 Then
j = din_kw(DateSerial(Year(datum) - 1, 12, 31))
ElseIf j = 53 And WeekDay(DateSerial(Year(datum), 12, 31), vbMonday) <= 3 Then
j = 1
End If
din_kw = j
End Function


frag nicht danach wie das gebastelt wurde, habs damals so im net gefunden. funzt jedenfalls ;)

[cereal]

dank dir, probiere ich gleich mal aus :)

mfg

cereal

[cereal]

Wie kann ich die FUnktion als neue Funktion einfügen?! VBS script?!

[Kurgan]

ne, als makro:
makro->makros-> din_kw
dann erstellen und den jetzt berichtigten code oben (hatte einen umschaltfehler drin) einfügen

dann ganz normal als funktion aufrufen.