Hallo !
Kann mir jemand bei diesem Makro helfen?
Wenn ich dieses Makro ausführe entstehen 30 Kopien in denen das Datum fortlaufend in der Zelle A1 und auf der Tabellenblattbezeichnung geändert wird .Wenn ich aber bei der Eingabe im Makro bei" For i = 1 To 364" einsetze ( um die Anzahl der Jahrestage zu erhalten ), kommt beim Ausführen des Makros folgende Meldung: Überlauf. Habe auch schon andere Zahlen eingesetzt, z.Bsp. 1 To 250, das funktioniert; alerdings nicht mehr Kopien.
Das Makro:
Sub TabKopierenDatumÄndern()
Dim vardatum As Date
Dim i As Byte
vardatum = "01.01.2017"
For i = 1 To 30
Sheets("01.01.17").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = vardatum + i
Sheets(Sheets.Count).Range("A1") = vardatum + i
Sheets(Sheets.Count).Range("A1").NumberFormat = "DD.MM.YY"
Next
End Sub
Vielleicht kann mir hier jemand helfen?
Mit freundlichen Grüßen