Office: TABS für jedne Tag des Monats einfügen + Tabelle mit übernehmen

Hallo,

ich muss übergangsweise monatsweise ein Kassenbuch in Excel führen.
Ich habe im 1. Reiter ein Tabellenblatt. Dieses enthält Formeln sowie in Zelle B2 das aktuelle Datum.

Was ich gern hätte:
Die Reiter vom 01.01.-31.01.24 erstellen sich automatisch UND die Tabelle inkl. Formeln wird mit übernommen.

Das Makro zum Erstellen der einzelnen Reiter habe ich.

Sub BlätterEinsetzen()
Dim StartDatum As Date
Dim EndDatum As Date
Dim AktuellesDatum As Date
Dim AktuellesBlatt As Worksheet

StartDatum = DateSerial(2024, 1, 1) ' Startdatum festlegen
EndDatum = DateSerial(2024, 1, 31) ' Enddatum festlegen

AktuellesDatum = StartDatum

' Schleife zum Erstellen der Blätter und Einfügen der Daten
For AktuellesDatum = StartDatum To EndDatum
' Neues Blatt erstellen
Set AktuellesBlatt = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
' Blatt umbenennen
AktuellesBlatt.Name = Format(AktuellesDatum, "dd.mm.yyyy")
' Datum in Zelle A1 einfügen
AktuellesBlatt.Range("B1").Value = AktuellesDatum
Next AktuellesDatum
End Sub

Wie bekomme ich es nun hin, dass auch die Tabelle mit übernommen wird?

Vielen Dank.

MfG

 

Hallo,

so etwas gehört auf ein Tabellenblatt. Einzelne Tage lassen sich daraus zum Beispiel über den Autofilter abbilden.

 

Hi,

da kann ich Klaus-Dieter nur Recht geben. Man fängt kein neues Blatt an, nur weil sich das Datum ändert. Das macht nur Schwierigkeiten.
Aber da du sowieso nicht darauf hören wirst: Nimm statt Sheets.Add doch einfach Sheets(1).Copy.