AW: Blatt-Transfer
10.11.2012 13:16:05
Matze,Matthias
Hallo Rolf,
hier mal mein Ansatz:
Option Explicit
Sub xCopy()
Dim QWB As Workbook, ZWB As Workbook
Dim QWS As Worksheet, ZWS As Worksheet
Workbooks.Open "C:\...\xyz.xls" ' Wenn die QuellDatei erst geöffnet werden muss
Set QWB = Workbooks("xyz.xls") ' Quelle, aus der die Tabelle kopiert werden soll
Set ZWB = ThisWorkbook ' Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Tabelle1") ' Quelle
Set ZWS = ZWB.Worksheets("Tabelle1") ' Ziel tabellen Name anpassen
QWS.Copy after:=ZWS ' oder before
Workbooks("xyz.xls").Close ' Wenn die Datei wieder geschlossen werden soll
End Sub
Das Macro kannst du dann im obigencode mit call Makroname ausführen
Matze