Usedrange
09.05.2023 13:03:28
bustue
Moin Moin Freunde
wie kann ich den folgenden Code verändern, so das nur ab der zweiten Zeile die Daten kopiert werden.
Option Explicit
Sub OTTO_Import()
Workbooks.Open Filename:="Z:\Test\OTTO\*142_DE_*.xlsx", ReadOnly:=True
ActiveWorkbook.Sheets("Tabelle1").UsedRange.Copy
ThisWorkbook.Sheets("OTTO").Cells(3, 1).PasteSpecial xlPasteValues
ActiveWorkbook.Close
End Sub
Ansich funktioniert der Code, leider kopiert er die gesamte Tabelle1.
Für Eure Hilfe dankend,
Mit freundlichen Grüßen
Burghard