Option Explicit

 

Sub DatenEinlesen()

    

    Application.DisplayAlerts = False

    Workbooks.Open Filename:="Z:datei.xlsx", UpdateLinks:=3, Notify:=False

    Sheets("Summary").Columns("B:P").Copy

 

    Workbooks("Mappe1").Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues

    

    Workbooks("datei.xlsx").Close False

 

    

    

    Application.CutCopyMode = False

    Application.DisplayAlerts = True

    

    

    

End Sub

    

    

Das ist mein code den ich nun erweitern möchte...

Ich möchte nun ein zweites Tabellensheet kopieren und unterhalb der  oberen range einfügen. Die andere Datei(tabellensheet) ist nun aber in einem anderen Ordner.Leider habe ich noch keinen Weg gefunden dies zu lösen. Der Code oben funktioniert ohne Probleme.

Desweiteren wie wäre es möglich, dass ich das Format übernehmen kann? habe es mit x1PasteFormats probiert und  das funktioniert auch aber leider nur einmal... wenn ich das Makro erneut ausführe bekomme ich eine Fehlermeldung mit Index ausßerhalb des Bereichs...

 

Vielen Dank für eure Hilfe!

 

Lg

Max