KW rechnet irgend wie nicht richtig oder ich?
02.07.2004 17:24:19
Mandy
ich habe folgenden Code eingesetzt, mit dem ich die Kalenderwoche
berechne.
Sub Kalenderwoche()
Dim a As Integer, dat As Date
For r = 1 To 365
dat = Cells(r, 1)
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 = 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
If Format(Cells(r, 1), "dddd") = "Montag" Then Cells(r, 18) = "KW " & a
Next r
Range("R1").Select
Selection.ClearContents
End Sub
Nun habe ich einiges versucht und musste feststellen, das irgend wie
das nicht stimmt. Wenn der 1. ein Montag ist, dann rechnet er Mist.
Was habe ich falsch gemacht, wo liegt der Fehler? Der Kalender ist
in einer Seite je Monat Untergebracht und die KW soll in der
Spalte R stehen. Das Jahr wird in der Seite Erläuterungen Feld
C18 eingegeben. Muss man das irgend wie beachten?
Gruß Mandy