Gruppe
Allgemein
Problem
Wie kann ich für den aktuellen Monat Tages-Tabellenblätter mit dem jeweiligen Datum als Blattname erstellen?
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