Hallo liebe Community, ich stehe vor einem kleinen Problem. Ich möchte eine Spalte (im Idealfall mehrere zB Spalten-Index 4-6) kopieren, dass erste Element sollte jedoch nicht mitkopiert werden. Für die Spalte 4 (D), sind leider einiger Felder nicht ebschriftet, wodurch ich die Spalte 1 (A) als Grundlage für diejenigen Zellen hernehme, die kopiert werden sollen.
Anbei mein bisheriger Code, der super funktioniert aber leider auch die 1. Zelle mitnimmt.
'Kopie PK
Windows("Datei X").Activate
ActiveSheet.Range(Cells(1, 4), Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 4)).Copy
Windows("Datei Y").Activate
Range("A12414").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Im Idealfall könnte ich mit diesem Code nicht nur Spalte 4, sondern auch Spalte 5 und 6 aufeinmal von der Datei X in Y kopieren.
Vielen Dank im voraus!
:)
|