ActiveWorkbook.Sheets("Data").Select
ActiveWorkbook.Sheets("Data").UsedRange.Copy
ThisWorkbook.Sheets("Tabelle1").Cells(rows.Count, 4).End(xlUp).Offset(0, -3).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Close
Hat jemand eine Idee?