ich möchte einen Zeilenbereich in einer Range Variable ablegen und diese Variable anschließend einem anderen Zeilenbereich (auf einem anderen Sheet) zuordnen.
Ich habe dazu folgenden Quelltext:
...
Dim A as Range
Workbooks("Beispiel.xls").Sheets("Bsp1").Activate
A = Range(Cells(1, 2), Cells(1, 10))
Workbooks("Beispiel.xls").Sheets("Bsp2").Activate
Range(Cells(2, 3), Cells(2, 11)) = A
...
Dieser läuft einwandfrei.
Nun möchte ich die .Activate Kommandos weglassen und schreibe statdessen:
...
Dim A as Range
A = Workbooks("Beispiel.xls").Sheets("Bsp1").Range(Cells(1, 2), Cells(1, 10))
Workbooks("Beispiel.xls").Sheets("Bsp2").Range(Cells(2, 3), Cells(2, 11)) = A
...
was zu einer Fehlermeldung führt. Bin ich auf den .Activate Befehl angewiesen. Dieser verursacht meiner Meinung nach nur unnötige Rechenzeit.
Vielen Dank im Voraus!
imtis