Makro funktioniert nur aus Entwicklungsumgebung
KOTTAN
Sub Datenimport_Test()
' Tastenkombination: Strg+Umschalt+I
Workbooks.Open Filename:="C:\temp\Test.xls"
Sheets("Daten").Range(Cells(2, 1), Cells(1001, 13)).Select
Selection.Copy
Windows("Test-Daten.xls").Activate
Sheets("Test").Activate
Cells(Rows.Count, 1).End(xlUp).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub