Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenblattnamen nach Datum

Gruppe

Arbeitsblatt

Problem

Wie kann ich für den aktuellen Monat Tages-Tabellenblätter mit dem jeweiligen Datum als Blattname erstellen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub CreateWks()
   Dim iCounter As Integer, iDays As Integer
   Application.ScreenUpdating = False
   iDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   For iCounter = 1 To iDays
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format( _
         DateSerial(Year(Date), Month(Date), iCounter), _
         Format:="dd.mm.yy")
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub