Format
20.11.2002 11:51:47
Gregor
Woran kann das liegen?
Sub TagAnlegen()
Dim intDay As Integer
Workbooks.Add
For intDay = 1 To 7
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(2001, 1, intDay), "dddd")
Next intDay
Application.DisplayAlerts = False
For intDay = 1 To Worksheets.Count - 7
Worksheets(1).Delete
Next intDay
Worksheets(1).Select
End Sub
Gruss Gregor
Anzeige