folgende Frage:
ist es möglich die aktuelle Kalenderwoche in der Kopfzeile auzugeben?
gruss
frank
Sub t()
Dim wks As Worksheet
Dim intKW As Integer
With Application.WorksheetFunction
intKW = CInt((Date - .Weekday(Date, 2) - _
DateSerial(Year(Date + 4 - .Weekday(Date, 2)), 1, -10)) / 7)
End With
For Each wks In ActiveWorkbook.Worksheets
wks.PageSetup.CenterHeader = intKW
Next
End Sub