Ich benutze zwei mal "Workbooks.Open" und das Arbeitsblatt zu öffnen und darauf die werte zu kopieren. Geht es auch einfacher, so dass ich das Arbeitsblatt nur einmal öffnen muss so dass die Werte aus den zwei Sheets kopiert werden und eingefügt werden? 2.) wie ändere ich den namen des tabellenblattes vn "tabelle1" auf "xxx" währned des kopiervorgangen oder danach zum Beispiel.
Mein Code:
Sub CopyAndPaste()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Add
Set ws = wb.Worksheets("Tabelle1")
datDatum = Now
Workbooks.Open Filename:="C:\Users\......xls"
Sheets("yyyyy").Range("A11:P57").Copy
ws.Range("A2").PasteSpecial
Workbooks.Open Filename:="C:\Users\.....xls"
Sheets("xxxxx").Range("A11:P41").Copy
ws.Range("R2").PasteSpecial
|