Office: VBA flexibles kopieren

Hi,

Keine Ahnung ob das geht was mir im Kopf rumgeistert.

Folgendes Bsp.

Workbooks("Mappe3.xls").Worksheets("Tabelle2").Range("D5:D7").Copy _ Workbooks("Mappe4.xls").Worksheets("Tabelle1").Range("E5:E7")

-------------------------------------------------------------------------------------
Ich möchte dieses Beispiel jetzt in der folgenden Art gerne umgestaltet haben

In dem Excel-Tabellenblatt, wo sich diese Makro befindet, steht im
Feld A1 = 5 und im Feld A2 = 7

------------------------------------------------------------------------------------

Jetzt würde ich es gerne so hinbekommen, das der Code folgendermaßen aussieht:

Workbooks("Mappe3.xls").Worksheets("Tabelle2").Range("D(=A1):D(=A2)").Copy _ Workbooks("Mappe4.xls").Worksheets("Tabelle1").Range("E5:E7")


Ich möchte gerne den bereich, der kopiert wird abhängig machen von den zahlen, die in A1 und A2 stehen.

Hoffe ich konnte meine Idee begreiflich machen

Geht sowas? bzw. was geht überhaupt in dieser Richtung?

Dankeschön

Grüße

 

Hallo!

Ja, du kannst dir solche Bezüge zusammenbauen:

Workbooks("Mappe3.xls").Worksheets("Tabelle2").Range("D" & Range("A1") & ":D" & Range("A2")).Copy