Microsoft Excel

Herbers Excel/VBA-Archiv

Kalenderwoche



Excel-Version: 8.0 (Office 97)

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!

  

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

  

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


  

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!


 

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