Blatt kopieren und umbenennen EXCEL97
12.11.2003 10:20:52
Christof
Ich habe ein Makro geschrieben, welches mir das letzte Tabellenblatt ermittelt,
und es anschließend kopiert und an das Ende des Workbooks stellt.
Zusätzlich wird es noch umbenannt.
Unter Excel2000 läuft es prima, aber unter Exce97 bekomme ich immer den Fehler:
Laufzeitfehler "1004"
Die copy-Methode des Worksheet-Objektes ist fehlerhaft!
Mein Code (Standardmodul, über Button aufgerufen):
Dim seitenzahl As Integer
Dim name2 As String
name2 = ActiveWorkbook.Name
For b = 1 To Sheets.Count
lastsheet = (Sheets(b).Name)
Next b
Workbooks(name2).Sheets(lastsheet).Copy after:=Workbooks(name2).Sheets(lastsheet)
For i = 1 To Sheets.Count
lastsheet = (Sheets(i).Name)
Next i
seitenzahl = i - 1
Sheets(lastsheet).Select
Sheets(lastsheet).Name = "Fahrzeuglebenslauf (Seite " & seitenzahl & ")"
Range("A53:A53").Select
Range("A53:A53") = "Seite " & seitenzahl
End Sub
Kann mir jemand sagen, woran das liegt? Wäre für jede Hilfe dankbar!
Grüße
Christof