Registerkarten Erstellen für einen Monat

[bibbo]

Hallo,
folgenden Code habe ich um jeweis Registerkarten zu erstellen (für jeden Tag ein Blatt) Jetzt möchte ich aber die Samstage und Sonntage nicht drin haben. Bedeutet soviel Karten Abzüglich der SA und SO.
Kann mir jemand Helfen den Code entsprechend anzupassen damit er dann auch das 1. Blatt als Vorlage für die Tage nimmt?


Sub test()
    Dim jahr                  As String
    Dim monat                 As String
    Dim tag                   As Integer
    Dim tagmax                As Integer
    Dim ganzesDatum           As Date
    Dim ws                    As Worksheet

    jahr = InputBox("Jahr eingeben")
    monat = InputBox("Monat eingeben (03 für März)")


    ganzesDatum = CDate(monat & "." & jahr)

    If monat < 12 Then
        tagmax = Day(CDate(monat + 1 & "." & jahr) - 1)
    Else
        tagmax = Day(CDate(monat - 11 & "." & jahr + 1) - 1)
    End If

    For tag = 1 To tagmax
        Set ws = Worksheets.Add(, Worksheets(Worksheets.Count))
        ws.Name = CDate(tag & "." & monat & "." & jahr)
    Next tag

    Set ws = Nothing
End Sub

[Fennek]

so ähnlich:

Code:

Sub F_en()

Dim Tag As Date

Mn = Month(Now) + 1
For Tag = VBA.DateSerial(Year(Now), Mn, 1) To DateSerial(Year(Now), Mn + 1, 1) - 1
    Tabelle1.Copy , Sheets(Sheets.Count)
    With ActiveSheet
        .Name = Tag
        .Cells(1, "J") = Tag
    End With
Next Tag

End Sub

[Fennek]

eine Kleinigkeit hatte ich vergessen:

Code:

if weekday(Tag, vbMonday) < 6 then