|
Hallo nochmal,
Habe noch ein Thema bei meinem Makro.
Ich möchte Daten aus 2 Spaltenbereichen (Quelle) in einen Spaltenbereich (Ziel) kopieren.
Derzeit sieht das so aus im Makro:
Windows("Zieldatei.xml").Activate
Sheets("Zieldatei_Sheet1").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Quelldatei.xlsm").Activate
Sheets("Quelldatei_Sheet1").Select
Range("JI3:JS3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Zieldatei.xml").Activate
Sheets("Zieldatei_Sheet1").Select
Range("A9").Select
Selection.End(xlDown).Select
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Es sollen die Daten mit unterschiedlicher Zeilenanzahl wie folgt kopiert und eingefügt werden. Erst alle A Daten dann alle B Daten im Ziel unter den zuvor eingefügten A Daten:
| Quelle |
| Daten_A1 |
Daten_A2 |
Daten_A3 |
Daten_B1 |
Daten_B2 |
Daten_B3 |
| Ziel |
| Daten_A1 |
Daten_A2 |
Daten_A3 |
| Daten_B1 |
Daten_B2 |
Daten_B3 |
Danke nochmal für die Hilfe!
Grüße DiWa
|