Excel fortlaufendes datum über 365 Tabellen ohne Samstag?

Moin,

ich habe eine Einfahrt/Ausfahrtliste erstellt.

Datum in D1 der 01.01.2023

diese Liste muss ich jetzt komplett für 2023 ohne den Wochentag Samstag erstellen.

unter VBA / Makros kann man da wohl einen worksheet erstellen,

der die Liste in 313 Blätter kopiert und die Namen der Blätter mit dem jeweiligen Datum benennt.

Und in jedem Blatt unter D1 das jeweils fortlaufende Datum einträgt

kann mir wer helfen?

Gruss

Markus

3 Antworten

Quest18831

22.12.2022, 23:10

Ja, es ist möglich, ein VBA-Makro zu erstellen, um eine Liste in Excel zu kopieren und die Namen der Blätter mit dem jeweiligen Datum zu benennen, während das fortlaufende Datum in D1 jedes Blatts eingetragen wird.

Hier ist ein Beispiel für ein VBA-Makro, das diese Aufgabe ausführen könnte:

Sub CreateSheets()

Dim i As Integer

Dim ws As Worksheet

Set ws = ActiveSheet ' set the active sheet as the source sheet

' loop through the number of sheets you want to create

For i = 1 To 313

' copy the source sheet and insert it after the last sheet

ws.Copy After:=Sheets(Sheets.Count)

' rename the new sheet with the current date

Sheets(Sheets.Count).Name = Format(DateAdd("d", i - 1, Range("D1").Value), "dd.mm.yyyy")

' increment the date in D1 on the source sheet

Range("D1").Value = DateAdd("d", 1, Range("D1").Value)

' check if the current day is a Saturday and skip it if it is

If Weekday(Range("D1").Value) = 7 Then

Range("D1").Value = DateAdd("d", 2, Range("D1").Value)

End If

Next i

End Sub

Um dieses Makro auszuführen, müssen Sie zunächst das erste Datum in Zelle D1 eingeben und dann das Makro ausführen. Das Makro wird dann 313 Kopien der aktiven Tabelle erstellen und jedes Blatt mit dem jeweiligen Datum benennen, während das fortlaufende Datum in D1 jedes Blatts eingetragen wird. Beachten Sie, dass das Makro Samstage überspringt, indem es das Datum um 2 Tage erhöht, wenn es auf einen Samstag trifft.