Termine und Fristen sind oft nicht nur mit einem Datum versehen, sondern
zusΣtzlich noch mit der entsprechenden Kalenderwoche. Um diese in Excel zu berechnen, fⁿhren Sie folgendes Makro aus:
Function KW(einDatum As Date)As Integer
KW = DatePart("ww", einDatum,vbMonday, vbFirstFourDays)
End Function
Sie finden das fertige Makro auch auf www.chip.de unter dem Web-Code Office-Tipps.