Hallo Thomas,
mit Schleife:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub Range_kopieren
Dim Array_Range As Variant
Dim i As Integer
For i = 1 To 10
Array_Range = Worksheets(2).Range(Worksheets(2).Cells(i,1), Worksheets(2).Cells(i,2)).value
Worksheets(3).Range(Worksheets(3).Cells(i,1), Worksheets(3).Cells(i,2)).value = Array_Range
next i
Erase Array_Range
End Sub
|
Stellt sich natürlich die Frage warum über eine For-Schleife wenn du den Bereich gleich definieren kannst und alles auf einmal kopieren kannst.
Ohne Schleife:
1 2 3 4 5 6 7 8 9 10 11 | Sub Range_kopieren
Dim Array_Range As Variant
Array_Range = Worksheets(2).Range(Worksheets(2).Cells(1,1), Worksheets(2).Cells(10,2)).value
Worksheets(3).Range(Worksheets(3).Cells(1,1), Worksheets(3).Cells(10,2)).value = Array_Range
Erase Array_Range
End Sub
|
Ohne Schleife und ohne Array:
1 2 3 4 5 | Sub Range_kopieren
Worksheets(3).Range(Worksheets(3).Cells(1,1), Worksheets(3).Cells(10,2)).value = Worksheets(2).Range(Worksheets(2).Cells(1,1), Worksheets(2).Cells(10,2)).value
End Sub
|
Funktioniert bei mir alles.
Ich hoffe bei wirds jetzt auch klappen.
Gruß
Andreas
|