335 Aufrufe
Gefragt in Tabellenkalkulation von
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 von
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 von twototoulouse Mitglied (370 Punkte)
Supi! Vielen Dank für die schnelle Antwort!
...