Makro abändern, Sonntage auslassen

[FrauHolle]

Hallo,

ich würde mich freuen, wenn ich nochmal eure Hilfe in Anspruch nehmen könnte.

Ich nutze folgendes Makro, um automatisch fortlaufende Tabellenblätter zu generieren, welche mit Datum beschriftet sind.

____________________________________________________________________________________________

Sub TabKopierenDatumÄndern()
Dim vardatum As Date
Dim i As Byte


vardatum = "01.10.15"


For i = 1 To 30
Sheets("01.10.2015").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = vardatum + i
Sheets(Sheets.Count).Range("A1") = "Kassenbericht " & vardatum + i
Sheets(s.Count).Range("A1").NumberFormat = "DD.MM.YY"
Next
End Sub

__________________________________________________________________________________________


Gibt es eine Möglchkeit, dieses Makro so abzuändern, dass bei den Arbeitsblättern die Sonntage automatisch ausgelassen werden?

Vielen, lieben Dank.

[Kuwer]

Hallo,

Code:

Sub TabKopierenDatumAendern()
  Dim vardatum As Date
  Dim i As Byte
  vardatum = "01.10.15"
  For i = 1 To 30
    If Weekday(vardatum + i, vbMonday) < 7 Then
      Sheets("01.10.2015").Copy after:=Sheets(Sheets.Count)
      Sheets(Sheets.Count).Name = vardatum + i
      Sheets(Sheets.Count).Range("A1") = "Kassenbericht " & vardatum + i
      'Sheets(Sheets.Count).Range("A1").NumberFormat = "DD.MM.YY"
    End If
  Next i
End Sub

Gruß Uwe

[FrauHolle]

Hallo Uwe,

funktioniert ganz ausgezeichnet!

Vielen, vielen Dank!!