|
Hallo Ihr,
ich bräuchte bitte eure Hilfe bei folgendem problem:
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 öchte nun ein zweites Tabellensheet kopieren und unterhalb der oberen range einfügen. 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
|