AW: Inhalte und Formate aus Sheet kopieren
02.08.2007 13:10:00
Sabine
bekomme Laufzeitfehler 1004...
mein ganzes makro ist ja wesentlich größer...
Sub report()
Dim nam As String, nam1 As String, nam2 As String, nam3 As String, nam4 As String, nam5 As _
String, nam6 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\auftrag.xls"
nam2 = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\Qvolume_Bookings. _
xls"
nam3 = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\BookTasCs.xls"
nam4 = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\BL-Q.xls"
nam5 = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\Prozesse\50_Marketing_Vertrieb\05-Berichtswesen\Ro12sales.xls"
nam6 = ActiveWorkbook.Name
With Workbooks(nam3).Sheets("Graph4")
Workbooks("Qvolume_Bookings.xls").Sheets("Graph4").Copy After:=Workbooks(" _
monatsbericht.xls").Sheets(1)
End With
With Workbooks(nam4).Sheets("Graph3")
Workbooks("BookTasCs.xls").Sheets("Graph3").Copy After:=Workbooks("monatsbericht.xls"). _
Sheets(1)
End With
With Workbooks(nam5).Sheets("Graph2")
Workbooks("BL-Q.xls").Sheets("Graph2").Copy After:=Workbooks("monatsbericht.xls"). _
Sheets(1)
End With
With Workbooks(nam6).Sheets("Graph1")
Workbooks("Ro12sales.xls").Sheets("Graph1").Copy After:=Workbooks("monatsbericht.xls"). _
Sheets(1)
End With
With Workbooks(nam1).Sheets("Q-Volume")
Workbooks("angebot.xls").Sheets("Q-Volume").Copy After:=Workbooks("monatsbericht.xls"). _
Sheets(1)
End With
With Workbooks(nam2).Sheets("bookings_y_cy")
Workbooks("auftrag.xls").Sheets("bookings_y_cy").Copy After:=Workbooks("monatsbericht. _
xls").Sheets(1)
End With
With Workbooks(nam2).Sheets("TA_sales_NY")
Workbooks("auftrag.xls").Sheets("TA_sales_NY").Copy After:=Workbooks("monatsbericht. _
xls").Sheets(1)
End With
With Workbooks(nam2).Sheets("sales_cy")
Workbooks("auftrag.xls").Sheets("sales_cy").Copy After:=Workbooks("monatsbericht.xls"). _
Sheets(1)
End With
With Workbooks(nam2).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("monatsbericht. _
xls").Sheets(1)
End With
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("monatsbericht.xls" _
).Sheets(1)
End With
With Workbooks(nam1).Sheets("TA_quotations")
Workbooks("angebot.xls").Sheets("TA_quotations").Copy After:=Workbooks("monatsbericht. _
xls").Sheets(1)
End With
End Sub
und alle außer die 4 graphs zu beginn sollen so "spezial" gepastet werden...