Forums Neueste Beiträge
 

Tabellenblatt in Excel 2003 mit Makro umbenennen

17/07/2008 - 19:48 von Michael Feske | Report spam
Hallo alle zusammen,
ich verschiebe mit diesem Makro:
Sub verschiebe_grafiken()
'
' verschiebe_grafiken Makro
' verschiebt grafiken in gesamtgrafiken
'

'
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
After:=Workbooks("grafikensammlung.xls"). _
Sheets(1)
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Ein Tabellenbaltt mit PivotCharts in eine andere Arbeitsmappe.
Was muß ich noch tun, damit das Tabellenblatt in der neuen Arbeitsmappe den
Inhalt der Zelle F22 [=name] (ist eine Verkettung aus der Ursprungstabelle)
bekommt.

Die Grafikensammlung wird auch nicht immer in diesem Pfad liegen:
C:\Dokumente und
Einstellungen\Desktop\abschlusstabellen\grafikensammlung.xls jedoch immer im
gleichen wie die Arbeitsmappe aus der ich verscheibe, wie müßte ich diesen
Pfad anpassen ?

Gruß
Micha
 

Lesen sie die antworten

#1 Dietmar Vollmeier
17/07/2008 - 20:03 | Warnen spam
*Michael Feske* schrieb am 17.07.2008 um 19:48 Uhr...
Was muß ich noch tun, damit das Tabellenblatt in der neuen
Arbeitsmappe den Inhalt der Zelle F22 [=name] (ist eine Verkettung
aus der Ursprungstabelle) bekommt.



ActiveSheet.Name = ActiveSheet.Range("F22").Value

Die Einbindung überlasse ich dabei dir ;-)


und tschüss,
Didi
"Computer der Zukunft werden nicht mehr als 1,5 Tonnen wiegen."

Ähnliche fragen