Ich möchte einen Report in einer neuen Tabelle aus 2 verschiedenen Exceldateien zusammenstellen, aber jeweils nur gewisse Blätter. Wie kann ich dies über ein Makro am einfachsten lösen? Ich hoffe mein Problem ist verständlich...
lg
Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\... Hier Pfad der 1.Quelldatei..\1.Quelldatei.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\... Hier pfad der 2.Quelldatei..\2.Quelldatei.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("gewünschtesSheet")
.Range("xy").Copy Destination:=Workbooks(nam).Sheets("Zielsheet").Range("A1") ' oder _
so ähnlich
End with
With Workbooks(nam2).Sheets("gewünschtesSheet")
.Range("xy").Copy Destination:=Workbooks(nam).Sheets("Zielsheet").Range("A10") ' oder _
so ähnlich
.Close
End with
End Sub
du kannst auch ganze Sheet kopieren, dann eben Sheets("xy").Copy, kommt drauf an, was du machen willst.
Gruß
Chaos
Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\auftrag.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("test.xls").Sheets( _
1)
End With
With Workbooks(nam1).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("test.xls"). _
Sheets(1)
End With
End Sub
Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\auftrag.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("test.xls").Sheets( _
1)
End With
With Workbooks(nam1).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("test.xls"). _
Sheets(1)
End With
End Sub