032 Arbeitsblätter erstellen und mit Datum benennen

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

Zurück zur Excel-Hauptseite

Zurück zur Titelseite