Tabellenblätter anlegen mit Datum
22.07.2003 16:35:45
Markus
ich habe folgendes Makro:
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:="ddd dd.mm.yy")
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Dadurch werden automatisch Tagesblätter erstellt mit Wochentag und Datum. Ich möchte aber weder einen Samstag, noch einen Sonntag darin haben. Wie könnte ich
das Makro ändern (erweitern) um dies zu ermöglichen.
Besten Dank
Markus