Bereich mit Variable in anderes Sheet kopieren

Hallo Community,
ich brauche eure Hilfe.
Ich schreibe an einem Makro, bei dem (in einer Schleife) ein mit Variablen definierter Bereich vom Sheet "Entwicklung 1" in das Sheet "Entwicklung 2" kopiert werden soll. Dabei habe ich (auch aus diesem Forum) bereits einige Ansätze und Tipps versucht, die jedoch nicht funktioniert haben,bzw. ich mit meinem Anfängerwissen in VBA nicht verstanden oder anpassen habe können.
Der aktuelle Code wäre dieser Hier:


Dim iCounter As Integer
Dim ENDE
ENDE = 10
For iCounter = 1 To ENDE
Dim X
Dim Y
Dim Z
Dim A
A = 1000
Z = 19
X = iCounter + 5
Y = (iCounter * 4) + 6
Dim Rng2Copy As Range, Rng2Paste As Range
Set Rng2Copy = Sheets("Entwicklung 1").Range(ActiveWorkbook.Sheets("Entwicklung 1").Cells(Y,  _
Z), ActiveWorkbook.Sheets("Entwicklung 1").Cells(Y, A))
Set Rng2Paste = Sheets("Entwicklung 2").Range(ActiveWorkbook.Sheets("Entwicklung 2").Cells(X, _
Z), ActiveWorkbook.Sheets("Entwicklung 2").Cells(X, A))
Dim aWerte()
aWerte() = Rng2Copy
Rng2Paste = aWerte()
DoEvents
If iCounter = ENDE Then
X = iCounter + 6
Set Rng2Copy = ActiveWorkbook.Sheets("Entwicklung 1").Range("A1:A1000").Value
Set Rng2Paste = Sheets("Entwicklung 2").Range(ActiveWorkbook.Sheets("Entwicklung 2").Cells( _
X, 1), ActiveWorkbook.Sheets("Entwicklung 2").Cells(X, A))
aWerte() = Rng2Copy
Rng2Paste = aWerte()
DoEvents
End If
DoEvents
Next iCounter

Mein ursprünglicher Ansatz, der leider (WARUM ?!?) nicht geklappt hat wäre gewesen:


ActiveWorkbook.Sheets("Entwicklung 2").Range(Cells(X, 1),Cells(X, A)) = ActiveWorkbook.Sheets(" _
Entwicklung 1").Range(Cells(Y, Z),Cells(Y, A)).Value

Ich hoffe, ihr könnt mir auf einem sehr niedrigen Niveau mit meinem Problem weiterhelfen. Vielen Dank schon mal.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim wsZiel as Worksheet Dim wsQuelle as Worksheet Set wsZiel = ActiveWorkbook.Sheets("Entwicklung 2") Set wsQuelle = ActiveWorkbook.Sheets("Entwicklung 1") WsQuelle.Range(WsQuelle.Cells(Y, Z),WsQuelle.Cells(Y, A)).Copy _ Destination:=wsZiel.Range(wsZiel.Cells(X, 1),wsZiel.Cells(X, A))

Hallo Hansueli,
nochmal Dankeschön, habe deinen Code jetzt probiert, aber auch hier werden mir (beim Debugging - Einzelschritt) die letzten beiden Zeilen als Laufzeitfehler angezeigt. Ich weiß ehrlich gesagt nicht, wo der Fehler liegen könnte, darum wollte ich alle an dieser Stelle fragen, ob es ein Problem mit meinen Variablen sein könnte?
Den ganzen Code habe ich ja bereits veröffentlicht, ich deklariere meine Variablen so:


Dim iCounter As Integer
Dim ENDE
ENDE = 10
For iCounter = 1 To ENDE
Dim X
Dim Y
Dim Z
Dim A
A = 1000
Z = 19
X = iCounter + 5
Y = (iCounter * 4) + 6

und deklariere anschließend die Bereiche mit Cells, in denen ich die Variablen nenne. Könnte hierbei etwas fehlerhaft sein? Immerhin sind eure Lösungen ja "richtig" bzw. ich wüsste wirklich nicht, wo ein Fehler ist, und das macht mich wahnsinnig !
Danke noch einmal im voraus, ich bin gespannt auf euer / dein Feedback :/.
mfg

Beliebteste Forumthreads (12 Monate)

Bereich mit Variable in anderes Sheet kopieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread