Hallo !
Ich habe eine Excel Datei mit einem Blatt. Dieses Blatt trägt als Bezeichnung das Datum, das auch auf dem Blatt in Zelle A 1 steht.
Das Makro soll nun dieses eine Blatt 364 mal kopieren und das Datum in Zelle A 1 und die Tabellenblattbezeichnung bei allen kopierten Blättern fortlaufend ändern.
Gehe ich nun auf das Makro ausführen, kopiert er los bis zum 12.09.17, dann stoppt er, zeigt "Laufzeitfehler `1004`, Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden" . Beim Debuggen ist die Zeile Sheets("01.01.17").Copy after:=Sheets(Sheets.Count) gelb markiert.
Warum aber kopiert er bis zum 12.09. und dann nicht mehr? Datei zu groß? Steht eigentlich nicht viel drin. Habe PC mit
Windows XP und Excel 2000.
Vielleicht kann mir jemand einen Tip geben?
Sub TabKopierenDatumÄndern()
Dim vardatum As Date
Dim i As Integer
vardatum = "01.01.2017"
'Tabelle1 anpassen (so wie deine zu kopierende Tab heißt)
For i = 1 To 364
Sheets("01.01.17").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = vardatum + i 'Tabelle in den Namen ändern, der erscheinen soll..
Sheets(Sheets.Count).Range("A1") = vardatum + i
Sheets(Sheets.Count).Range("A1").NumberFormat = "DD.MM.YY"
Next
End Sub
Vielen Dank im Voraus
Gruß
twototoulouse