Weekdag uitsluiten bij het aanmaken van tabbladen met macro

[Verwijderd]

Hoi allen,

Ik heb een vraag omtrent een macro die ik heb aangemaakt. Deze macro zorgt ervoor dat mijn shiftrapport voor elke dag van de maand wordt aangemaakt. Nu is dit alleen van toepassing voor maandag tot en met zaterdag dus ik zou graag willen dat de dag zondag wordt uigesloten in het aanmaken van de tabbladen.

Verder heb ik weinig verstand van macro's dus ik vraag me af hoe ik de zondag uit kan sluiten in deze macro? Onderstaande macro gebruik ik hiervoor!

Hoor graag van jullie, alvast bedankt!

Dijohn!

Sub CommandButton1_Click()
Dim Sjabloon As Worksheet
Dim Datum As Date
Dim Maand As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Sjabloon" And sh.Name <> "Voorblad" Then sh.Delete
Next sh
Application.DisplayAlerts = True

Datum = Sheets("Voorblad").Range("A1")
Maand = Format(Datum, "MMM")
Set Sjabloon = ThisWorkbook.Worksheets("Sjabloon")
While Format(Datum, "MMM") = Maand
Sjabloon.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Datum, "dddd dd-mm-yyyy")
ActiveSheet.Range("J3") = Format(Datum, "dddd")
ActiveSheet.Range("M3") = Format(Datum, "mm-dd-yyyy")
'Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Format(Datum, "dddd dd-mm-yyyy")
Datum = Datum + 1
Wend

Sheets("Voorblad").Activate
Application.ScreenUpdating = True
End Sub

[Verwijderd]

Kan je niet gewoon eff met IF checken of de dag oke is?

[dix-neuf]

Voeg in boven 'Wend':

code:

If weekday(datum) = 1 Then datum = datum + 1

Je macro is voor verbetering vatbaar, maar ik ga hem niet herschrijven.