Hi Markus,
folgender Vorschlag:
hier anmelden und eine Beispielmappe mitbringen:
https://www.ms-office-forum.net/forum/index.php?referrerid=81823
Anschließend packen wir folgende Zeile:
.Range(.Cells(2, 1), .Cells(.Cells(.Rows.count, 1).End(xlUp).Row, 15)).Copy
In ein Array. Erweitern das Array um eine Spalte und setzen dort deine 5Stellen an.
Dieses Array übergeben wir an das Zielworkbook, aber erweitern folgende Zeile
.Cells(.Rows.count, 1).End(xlUp).Offset(1, 0)
um .Resize() in Kombinatione mit UBound(arr,1) und UBound(arr,2), 'kopieren' somit die Werte da rein....
Viel geredet -> anmelden -> Beispielmappe hocladen -> hinterlege Dir den Code.
Kein muss; eine Offerte. Kannst auch gern auf weitere Antworten warten; es lesen genug Supporter mit :)
|