Hallo Thomas,
mit Schleife:
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:
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:
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
|