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ß