Hallo,
ich habe folgendenen Code, wo ich von Datei1 in Datei2 Daten kopiere. In der Datei1 sind die Daten aber gefiltert und in Datei2 werden diese nach mehrmaligen kopieren und einfügen mit Lücken untereinander gesetzt. Wie kann ich das verhindern. Kann mir dabei jemand helfen.
Hier mein Code:
Workbooks("Extern.XLSM").Activate
With Sheets("Tabelle1")
x = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
wbStart.Sheets("Extern").Range("A2:M15000").Copy Destination:=wbZiel.Sheets("Tabelle1").Cells(x, 1)
|