Hi,
da musst du nur die beiden blau markierten Zeilen ergänzen:
Sub TabsErstellen()
Dim lngZaehler As Long
Worksheets("01.01.2019").Range("B2") = DateValue("01.01.2019")
For lngZaehler = 1 To 364
Worksheets("01.01.2019").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = DateValue("01.01.2019") + lngZaehler
ActiveSheet.Range("B2") = DateValue("01.01.2019") + lngZaehler
Next lngZaehler
End Sub
Oder meinst du, dass in den bereits vorhandenen (mit dem Code aus meinem vorhergehenden Beitrag erstellten) Tabellenblättern das Datum nachgetragen wreden soll? Dann benötigst du ein extra Makro:
Sub DatumEintragen()
Dim lngZaehler As Long
Dim wksTab As Worksheet
For Each wksTab In Worksheets
If IsDate(wksTab.Name) Then
wksTab.Range("B2") = DateValue(wksTab.Name)
End If
Next wksTab
End Sub
Bis später, Karin