Blätter mit fortlaufendem Datum erstellen

Hallo,

schreibe in das vorhandene Tabellenblatt das Datum des ersten Arbeitstages in A1 und füge die gewünschten Inhalte dazu.

Rufe dann folgendes Makro auf:

Sub BlätterEinfügen()

Dim Last As Integer, First As Integer, i As Integer, Tage As Integer

Application.ScreenUpdating = False

With ActiveSheet

   First = Day(.Range("A1"))

   Last = Day(Application.EoMonth(.Range("A1"), 0))

   Tage = Application.NetworkDays(First, Last)

   .Name = .Range("A1")

End With

For i = 2 To Tage

   Select Case Weekday(Sheets(i - 1).Range("A1"), 2)

      Case Is < 5

         Sheets(i - 1).Copy after:=Sheets(i - 1)

         ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 1

         ActiveSheet.Name = Range("A1")

      Case 5

         Sheets(i - 1).Copy after:=Sheets(i - 1)

         ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 3

         ActiveSheet.Name = Range("A1")

   End Select

Next

Application.ScreenUpdating = True

End Sub

Claus

Hallo,

erstelle eine neue Mappe mit einem Tabellenblatt. Schreibe in A1 das Datum des Ersten des gewünschten Monats. Füge die Inhalte ein, die in allen Blättern vorhanden sein sollen und rufe dann folgendes Makro auf:

Sub BlätterEinfügen()

Dim Last As Integer, i As IntegerApplication.ScreenUpdating = False

With ActiveSheet

   Last = Day(Application.EoMonth(.Range("A1"), 0))

   .Name = .Range("A1")

End With

For i = 2 To Last

   Sheets(i - 1).Copy after:=Sheets(i - 1)

   ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 1

   ActiveSheet.Name = Range("A1")

Next

Application.ScreenUpdating = True

End Sub

Claus

Hallo Jörg,
Wenn viele Menschen an der gleichen Frage arbeiten ist es für viele verschwendete Zeit. Deswegen werden auch Crosspostings nicht gerne gesehen. Es wäre schön wenn Du das in berücksichtigen würdest.
Lies bitte auch die Verhaltensregeln dieses Forums Abschnitt "Unzulässiges Verhalten":
Microsoft Community – Verhaltensregeln
Die Frage ist hier beantwortet:
https://answers.microsoft.com/de-de...stellung/a5232b7f-2714-41e2-8f92-a8a36809ec9f
Ich schließe diesen Thread. Vielen Dank für Dein Verständnis.
Andreas.

Hallo toaskoas,

Schön, dass du dich bei uns in der Community meldest, aber Ich würde dir meine Kollegen beim

MSDN Support empfehlen zu kontaktieren. Sie können dir besser helfen.

Bei anderen Anliegen helfe ich gerne weiter.

Grüße,

Federica

Hallo, ich bin Leonielhou, ein unabhängiger Berater und ein Benutzer wie Sie, ich helfe gerne bei der Klärung Ihrer Fragen.

Wenn Sie beispielsweise Arbeitsblätter für jeden Wochentag im März 2023 erstellen möchten:

Geben Sie 03/01/2023 (oder 01/03/2023 je nach Datumsformat) in Zelle A1 eines leeren Blatts ein.
Klicken Sie mit der rechten Maustaste auf den Ausfüllpunkt in der unteren rechten Ecke von Zelle A1, ziehen Sie ihn nach unten in Zelle A23 (oder bis zum 31.03.2023), und lassen Sie ihn dann los.
Wählen Sie im Popupmenü "Wochentage füllen" (Sa und Sonntag sind daher ausgeschlossen).

In Spalte A sollte eine Reihenfolge von Daten vom 01.03.2023 bis zum 31.03.2023 ohne Samstage und Sonntage angezeigt werden.
Markieren Sie alle Zellen mit Datumsangaben (A1:A23) und kopieren Sie sie (Strg+C).
Klicken Sie mit der rechten Maustaste auf eine beliebige Blattregisterkarte am unteren Rand des Excel-Fensters und wählen Sie Einfügen aus dem Kontextmenü.
Wählen Sie im Dialogfeld Einfügen die Option Arbeitsblatt als Typ aus, und klicken Sie auf OK.
Vor dem aktiven Blatt wird ein neues Blatt eingefügt. Benennen Sie es in "Base" oder etwas anderes um, das Sie möchten.
Fügen Sie die kopierten Datumsangaben (Strg+V) in Spalte A dieses Arbeitsblatts ein.
Klicken Sie auf Enterprise > Arbeitsblatttools > Erstellen Sie Sequenzarbeitsblätter von Kutools for Excel Add-In Menüband-Registerkarte. Wenn Sie dieses Add-In nicht installiert haben, können Sie es herunterladen.
Geben Sie im Dialogfeld Sequenzarbeitsblätter erstellen aus der Dropdownliste Basisarbeitsblatt "Basis" als Arbeitsblatt an, auf dem die neuen Arbeitsblätter basieren sollen. Aktivieren Sie die Option Datum im Abschnitt Arbeitsblätter nach Gruppe erstellen. Klicken Sie auf OK.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.