Tabellenblatt über Makro kopiert in andere Arbeitsmappe

17/07/2008 - 21:12 von Michael Feske | Report spam
Hallo alle zusammen,
über das unten stehende Makro kopiere ich ein Tabellenblatt in eine andere
Arbeitsmappe und bennene es um (Danke didi).
Ich habe in der Zielarbeitsmappe auch ein Tabellenblatt "letztes" das hat
der Makrorekorder scheinbar ignoriert.
Was muß ich statt Sheets(9) eintragen, damit das kopierte Tabellenblatt
immer als letztes eingefügt wird oder alternativ immer vor "letztes" ?

Sub verschiebe_grafik()
'
' verschiebe_grafik Makro
' verschiebt graph_pivot_einzel in gesamtgrafiken und bennent das
tabellenblatt nach f22 um
'

'
Workbooks.Open Filename:= _
"C:\Dokumente und
Einstellungen\Desktop\abschlusstabellen\grafikensammlung.xls"
Windows("mg_0_bis_4.xls").Activate
Sheets("graph_pivot_einzel").Select
Sheets("graph_pivot_einzel").Copy
Before:=Workbooks("grafikensammlung.xls"). _
Sheets(9)
ActiveSheet.Name = ActiveSheet.Range("F22").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Gruß
Micha
 

Lesen sie die antworten

#1 Claus Busch
17/07/2008 - 21:28 | Warnen spam
Hallo Michael,

Am Thu, 17 Jul 2008 12:12:02 -0700 schrieb Michael Feske:

Hallo alle zusammen,
über das unten stehende Makro kopiere ich ein Tabellenblatt in eine andere
Arbeitsmappe und bennene es um (Danke didi).
Ich habe in der Zielarbeitsmappe auch ein Tabellenblatt "letztes" das hat
der Makrorekorder scheinbar ignoriert.
Was muß ich statt Sheets(9) eintragen, damit das kopierte Tabellenblatt
immer als letztes eingefügt wird oder alternativ immer vor "letztes" ?



Vor "letztes":
Before:=Workbooks("grafikensammlung.xls"). _
Sheets("letztes")
Ans Ende:
After:=Workbooks("grafikensammlung.xls"). _
Sheets(sheets.count)


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen