tabellenblattbezeichnung datum fortlaufend mit kopieren

221 Aufrufe
Gefragt 25, Dez 2016 in Tabellenkalkulation von hjm
Hallo ihr fleißigen Helfer!
Ich habe eine excel Tabelle mit einem Tabellenblatt.
In dieser Tabelle habe ich in der Zelle A1 das Datum 01.01.17.
Das Tabellenblatt selber trägt ebenfalls die Bezeichnung 01.01.17
Ich möchte jetzt dieses Tabellenblatt 365 mal kopieren.
Dabei soll der Inhalt des Blattes kopiert werden, in der Zelle A1 allerdings bei jedem Datenblatt das Datum fortlaufend geändert werden. Ebenfalls sollte sich bei der Bezeichnung der einzelnen Datenblätter das Datum fortlaufend ändern.
Ist das mit einem Makro möglich?
Vielen Dank im Voraus

2 Antworten

0 Punkte
Beantwortet 26, Dez 2016 von rolanda
logisch

Sub los_gehts()
Dim dat As String
Dim i As Integer

For i = 0 To 364
dat = DateSerial(2017, 1, 1) + i
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = dat
Range("A1").Value = dat
Next

End Sub

Gruß
rolanda
0 Punkte
Beantwortet 26, Dez 2016 von twototoulouse Einsteiger (73 Punkte)
Supi! Vielen Dank für die schnelle Antwort!
...