verfaßt von manes 
, Köln, 21.01.2020, 23:12:12
Hallo
Es ist nicht nötig, das, mit dem Du was machen willst, dafür zu markieren oder zu aktivieren.
Du könntest das , wenn die Zielbereiche ebenso wie die Quelldaten direkt nebeneinander lägen, mit einer Mehrfacherfassung ( z.B. "C1:C2,D1:D2,E1:E2") erledigen. Klappt aber hier leider nicht.
Mein Vorschlag wäre, es mit einer ForNext-Schleife zu erledigen:
Sub kopieren()
Dim wsh_q As Worksheet
Dim wsh_z As Worksheet
Dim var_q As Variant
Dim var_z As Variant
Dim int_x As Integer
Dim str_r As String
Dim letzte As Long
Set wsh_q = ActiveWorkbook.Worksheets("quelldaten")
Set wsh_z = Workbooks.Open(ActiveWorkbook.Path & "\ziel.xlsx").Worksheets("zielbereich")
var_q = Split("c,d,e,f", ",")
var_z = Split("a,k,j,l", ",")
letzte = wsh_q.Range("A65536").End(xlUp).Row
str_r = "#1:#" & letzte
For int_x = 0 To UBound(var_q)
str_q = Replace(str_r, "#", var_q(int_x))
str_z = Replace(str_r, "#", var_z(int_x))
wsh_q.Range(str_q).Copy Destination:=wsh_z.Range(str_z)
Next
End Sub
FFPX
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: