Office: Bereiche kopieren

Hallo ihr Profis,

ich habe da ein Problem und habe bisher noch kein vernünftigen Ansatz gefunden.

Ich sitze gerade an einer Vorlage, mit der wir Angebote erstellen wollen.
Hierzu habe ich in diesem Forum schon sehr viel super Tipps bekommen (vielen Dank dafür:))

Mein aktuelles Problem:

Eine Variable in diesem Angebot sind "Szenen", die sind bei mir in einem Feld als Anzahl definiert.

Nun möchte ich erreichen, dass ein bestimmter Bereich sooft kopiert wird, wie es in diesem Feld definiert ist.

Bsp: Wir machen VFX Shots für 9 Szenen, nun möchte ich, dass ein bestimmter Bereich (mit meinen Dropdowns, Formeln, Formatierungen etc) 9 Mal untereinander an eine bestimmte Stelle kopiert wird.

Welchen Weg müsste ich da (als Anfänger) gehen?
(Ich habe mir schon Makros angesehen, aber das überschreitet derzeit leider noch meine Fähigkeiten).

Vielen Dank im Vorfeld für Tipps!

 

Hallo!

z.b so

Code:

Sub copy()
Dim i As Integer
Dim y As Integer
i = 0
Do Until i >= Range("a1").Value
i = i + 1
y = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
Range("a2:B4").copy Destination:=Cells(y, 5)
Loop
End Sub

Dieser Code kopiert den Bereich A2:B4 soviel mal in die Spalten E:F wie in A1 steht.


Gruß

 

Danke Gook,

das brachte mich schon ein Stückchen weiter.
Ich habe den Code mal für mich angepasst und stehe nun vor dem Problem,
dass die Anzahl der zu machenden Kopien (in A1), quasi ignoriert werden und mir der gesamte Bereich blos einmal an meine gewünschte Stelle kopiert wird und nicht, sooft, wie ich es in A1 definiert habe.

Mein Code sieht nun so aus:

Code:

Sub copy()
Dim i As Integer
Dim y As Integer
i = 0
Do Until i >= Range("a1").Value
i = i + 1
y = ActiveSheet.Cells(Rows.Count, 19).End(xlUp).Row + 1
Range("a2:e20").copy Destination:=Cells(y, 7)
Loop
End Sub

Wo ist da der Fehler?

Grüße

 

Hallo!

Sub copy()
Dim i As Integer
Dim y As Integer
i = 0
Do Until i >= Range("a1").Value
i = i + 1
y = ActiveSheet.Cells(Rows.Count,7).End(xlUp).Row + 1
Range("a2:e20").copy Destination:=Cells(y, 7)
Loop
End Sub

ändere es so ab jetzt müsste es gehen.

 

Das kam der Lösung schon sehr nahe, jedoch wurde mein zu kopierender Bereich nach 5 Zeilen abgeschnitten und nur der letzte wurde vollständig kopiert.
Ich habe ein wenig hin und her probiert und nachdem ich

y = ActiveSheet.Cells(Rows.Count,7).End(xlUp).Row + 1

auf 8 geändert habe, hats funktioniert. Keine Ahnung warum, ich habe die Syntax immer noch nicht ganz begriffen.

Aber vielen Dank bis hierher, das Ergebnis ist auf jeden Falls so, wie ich es haben wollte :)

 

Hallo,

y = ActiveSheet.Cells(Rows.Count,7).End(xlUp).Row + 1 gibt die letze Zelle in Spalte 7 (G) in der ein Wert steht zurück. +1 und du hast somit die nächste Freie Zelle in der der Bereich wieder reinkopiert wird.