Mehrere Spalten kopieren VBA verbessern?

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi zusammen,
Daniel liebt Intersect, und das nicht ohne Grund.
Aber es scheint, daß das Kopieren mehrerer, nicht zusammenhängender Spalten mitunter zu seltsamen Effekten führt:

Option Explicit
Sub test()
Dim lz01&
lz01 = Range("D" & Cells.Rows.Count).End(xlUp).Row
Sheets(1).Range("D2:D" & lz01 & ",AM2:AM" & lz01 & _
",AH2:AH" & lz01 & ",AC2:AC" & lz01).Copy
Sheets(2).Range("A2").PasteSpecial
'kopiert FORMELN
Sheets(1).Range("D2:D" & lz01 & ",AM2:AM" & lz01 & _
",AH2:AH" & lz01 & ",AC2:AC" & lz01).Copy _
Sheets(2).Range("A2") ' man beachte den Unterstrich    ^
'kopiert WERTE, warum?
End Sub
Sub test2()
Dim lz01&, i&
Const von = "D,AM,AH,AC"
Const nach = "A,B,C,D"
Dim aVon, aNach
aVon = Split(von, ",")
aNach = Split(nach, ",")
lz01 = Range("D" & Cells.Rows.Count).End(xlUp).Row
For i = 0 To UBound(aVon)
Sheets(1).Range(aVon(i) & "2").Resize(lz01 - 1).Copy Sheets(2).Range(aNach(i) & "2")
Next
'kopiert FORMELn, wie erwartet
End Sub

Deshalb würde ich, um Unvorhersehbares zu vermeiden, immer die untere Variante wählen - durch die Definition der Spalten in den Konstanten ist das auch sehr leicht zu warten.
Ansonsten vielen Dank für die Rückmeldung und
schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Mehrere Spalten kopieren VBA verbessern?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

64 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Spalten kopieren VBA verbessern?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

64 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread