Herbers Excel-Forum - das Archiv
Blatt kopieren und umbenennen EXCEL97
- Blatt kopieren und umbenennen EXCEL97 von Christof vom 12.11.2003 10:20:52
- AW: Blatt kopieren und umbenennen EXCEL97 - von WernerB. am 12.11.2003 10:37:45
- AW: Blatt kopieren und umbenennen EXCEL97 - von Christof am 12.11.2003 10:57:24
- AW: Blatt kopieren und umbenennen EXCEL97 - von WernerB. am 12.11.2003 11:16:24
- AW: Blatt kopieren und umbenennen EXCEL97 - von Christof am 12.11.2003 11:21:56
- AW: Blatt kopieren und umbenennen EXCEL97 - von Christof am 12.11.2003 11:21:56
- AW: Blatt kopieren und umbenennen EXCEL97 - von WernerB. am 12.11.2003 11:16:24
- AW: Blatt kopieren und umbenennen EXCEL97 - von Christof am 12.11.2003 10:57:24
- AW: Blatt kopieren und umbenennen EXCEL97 - von WernerB. am 12.11.2003 10:37:45
 |
Betrifft: Blatt kopieren und umbenennen EXCEL97
von: Christof
Geschrieben am: 12.11.2003 10:20:52
Guten Morgen und Hallo!
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
 |
Betrifft: AW: Blatt kopieren und umbenennen EXCEL97
von: WernerB.
Geschrieben am: 12.11.2003 10:37:45
Hallo Christof,
das geht doch wesentlich einfacher mit nur drei Zeilen ohne Schleifen und Variablen (getestet unter Excel97):
Sub Christof()
ActiveWorkbook.Sheets(Sheets.Count).Copy _
After:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveWorkbook.Sheets(Sheets.Count).Name = _
"Fahrzeuglebenslauf (Seite " & Sheets.Count - 1 & ")"
ActiveWorkbook.Sheets(Sheets.Count).Range("A53").Value = _
"Seite " & Sheets.Count - 1
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
|
Betrifft: AW: Blatt kopieren und umbenennen EXCEL97
von: Christof
Geschrieben am: 12.11.2003 10:57:24
Danke Werner für die schnelle Antwort.
Geht bestens unter 2000, aber unter 97 bekomme ich es einfach nicht zum laufen.
Selbe Fehlermeldung.
Beim debuggen sieht man, das es an der COPY-AFTER Methode hängt, obwohl im count die
Seitenzahl steht.
Version ist Excel97 SR-1
Bin ratlos!?!
vieleicht ein Bug?
Hab da ein Beitrag unter
https://www.herber.de/forum/archiv/12to16/t13676.htm#13676
gefunden, hilft mir aber net direkt weiter.
|
Betrifft: AW: Blatt kopieren und umbenennen EXCEL97
von: WernerB.
Geschrieben am: 12.11.2003 11:16:24
Hallo Christof,
wie bereits erwähnt, habe ich meinen Lösungsvorschlag erfolgreich unter Excel97 getestet.
Vermutlich hat Dein Problem nichts mit dem von Dir angesprochenen Archivbeitrag zu tun.
Frage: Hast Du die TakeFocusOnClick-Eigenschaft Deines Buttons schon auf "False" gestellt?
Gruß WernerB.
|
Betrifft: AW: Blatt kopieren und umbenennen EXCEL97
von: Christof
Geschrieben am: 12.11.2003 11:21:56
Danke Werner, das wars!
Bin halt noch zu sehr Anfänger, da wäre ich ja im Leben nicht drauf gekommen.
Hab vielen Dank für deine Hilfe!
Viele Grüsse aus dem sonnigen Kinzigtal
Christof
| |