|
Hallo, ich möchte einen Bereich festlegen, der von einer Arbeitsmappe zur anderen bestimmte Zelle kopiert.
Dies geht, wenn ich eine einezelne Zelle kopieren will gut über:
1 2 3 4 5 6 | wbAct.Sheets(1).Cells(4, 4).Value = wbNeu.Sheets(1).Cells(4, 4).Value
Jetzt habe ich aber viele Zellen deshalb möchte ich gerne einen Bereich festlegen und diesen dann kopieren.
Leider habe ich aber keine Ahnung wie die Befehlszeile dann ausschauen soll, bzw. bekomme immer Fehlermeldungen.
Hier mein Ansatz:
|
1 2 3 4 5 6 | Set Kalk_Daten = Range("X15:X21,X26:X40,AC15:AC33,AC36:AC40,D15:D20,D22:D28,D30:D34,D36:D40,I15:I18,I20:I25,I27:I33,I35:I38,I40,N15:N18,N20:N25,N27:N34,N36:N40,S15:S20,S22:S24,S27,Q28,Q29,S30,S33,Q37,AI6,N6,N8,D11,D4,D6,D8,I4:I8")
wbAct.Sheets(1).Kalk_Daten.Value = wbNeu.Sheets(1).Kalk_Daten.Value
mfg Günther
|
|