Makro für Datum und Kalenderwoche
28.06.2005 14:02:38
Murat
ich möchte auf einem Arbeitsblatt in der Spalte A das Datum von 2004 fortlaufend bis 2010 stehen haben und in der Spalte B jeweils die passende Kalenderwoche zu jedem einzelnen Datum.
Ich habe folgendes Makro verwendet. Dieses Makro läuft aber nur ein Jahr (2005). Wie kann ich dieses Makro ergänzen, damit auch mehrere Jahre (von 2004 bis 2010) ausgegeben werden? Würde mich freuen, wenn mir jemand weiterhelfen kann.
Sub DatumUndKW()
Dim iCount As Integer, iCounter As Integer
If Month(DateSerial(Year(Date), 2, 29)) = 2 Then
iCount = 366
Else
iCount = 365
End If
For iCounter = 1 To iCount
Cells(iCounter, 1) = DateSerial(Year(Date), 1, iCounter)
Cells(iCounter, 2) = DINWeek(Cells(iCounter, 1))
Next iCounter
End Sub
Private Function DINWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function
Gruß
Murat
Anzeige