ich kämpfe damit, 2 nicht nebeneinander liegende Spalten aus einem Sheet in ein anderes zu kopieren (liegen dann nebeneinander).
Also z.B. Spalte A1:A10 und die Spalte K2:K10 aus Tabelle 1 nach Tabelle2 in A2:A10 und B2:B10. Mit dem Macrorekorder bin ich nicht richtig weitergekommen - 2. Spalte mit linker STRG-Taste selektiert.
Mit dem nachfolgenden Code - schon mehrmals verbastelt - wird immer der komplette Bereich zwischen A2 und K10 mit den dazwischen liegenden Spalten kopiert:
wb1.Worksheets("Werk").Select
wb1.Worksheets("Werk").Range(("A2:A" & MaxWerkIndex), ("K2:K" & MaxWerkIndex)).Select
Selection.Copy
wb1.Worksheets("W_Auswertung").Select
Range("A2").Select
ActiveSheet.Paste
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank,
Jürgen
----
Recherche hat nichts gebracht - Union?