Kalenderwoche



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Kalenderwoche
von: Jens
Geschrieben am: 03.06.2002 - 08:27:47

Eine Frage:
Möchte über VBA aus einem Datum die Kalenderewoche berechnen, dazu benutze ich folgende Formel/Funktion(im Forum gefunden):

Function KWoche(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KWoche = ((d - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function

Das Ergebnis soll dann per:

NewBook.Worksheets("1").Range("B8").Value = KWoche(Datum)

In die besagte Zelle B8 geschrieben werden!

Excel/VBA trägt mir dies auch ein, aber wenn ich als Datum z.B. 01.02.2002 übergebe wird in die Zelle 18.02.1900 eingetragen!

Was ist an meiner Funktion falsch?????????

Danke im Vorraus!

nach oben   nach unten

Re: Kalenderwoche
von: Nepumuk
Geschrieben am: 03.06.2002 - 09:23:22

Hallo Jens,
Excel bietet folgende Möglichkeit an:


NewBook.Worksheets("1").Range("B8").Value = DatePart("ww", Datum, vbSunday, vbFirstFourDays)

Gruß Nepumuk

nach oben   nach unten

Re: Kalenderwoche
von: Heinz
Geschrieben am: 03.06.2002 - 10:26:31

Hallo Jens,
Füge über EXTRAS-Add-Inns die Analysefunktionen ein und du hast eine fertige Funktion

=Kalenderwoche(A...)

Gruß Heinz


nach oben   nach unten

Re: Kalenderwoche
von: Jens
Geschrieben am: 03.06.2002 - 13:31:13

Danke für die Lösungen, hab aber das problem gefunden.
Wollte vermeiden die analysefunktion zu nutzen!

Die Finktion KWoche liefert mir die Kalenderwochen Nummer und kein Datum!!!!
Da lag der Fehler!


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kalenderwoche"