Um in Excel neue Arbeitsblätter zu erstellen und mit fortlaufendem Datum zu versehen, genügt folgendes kleines Makro:
Sub Planer()
'
' Makro erstellt Arbeitsblätter und benennt sie
' mit dem Wochentag und dem Datum
'
' Da das Makro jedes neue Arbeitsblatt vorne anfügt,
' muss es mit dem Endedatum beginnen
'
Dim neuTab As Worksheet
Const EndeDat As Date = #1/1/03#
For x = 1 To 365
Blattname = Format(EndeDat - x, "ddd, dd.mm.yyyy")
Set neuTab = Worksheets.Add
neuTab.Name = Blattname
Next
End Sub