durch folgenden Code werden Daten kopiert und eingefügt:
Sub Test03()
Workbooks("Original.xlsx").Sheets("Sheet1"). _
Range("D2:D6000,AM2:AM6000,AH2:AH6000,AC2:AC6000").Copy
ThisWorkbook.Sheets("Blatt1").Range("A2").PasteSpecial
End Sub
Funktioniert einwandfrei; Endpunkt Zelle 6000 ist willkürlich von mir gesetzt, da die Datenmenge sich monatlich ändern.Am Anfang habe ich folgenden Code benutzt:
Sub test02()
With Sheets("Sheet1")
lz01 = .Range("D" & .Cells.Rows.Count).End(xlUp).Row
.Range("D2:D" & lz01).Copy
ThisWorkbook.Sheets("Blatt1").Range("A2").PasteSpecial
End With
End Sub
Hier sucht sich der Code selbstständig die letzte Zeile.Ich schaffe es aber nicht diesen Code so zu verändern, dass er mehrere Spalten gleichzeitig kopiert.
Ich könnte jetzt natürlich diesen einfach kopieren und entsprechend ändern; geht das eventuell auch in einem Rutsch.
Vielen Dank schon einmal
Gruß
Michael