hallo.
will mit dem Makro bestimmte Zellbereiche mehrfach kopieren. Und die kopierten Bereiche nach unten einfügen.
Vor jedem Kopiervorgang ändern sich die Zelleninhalte. Nur mein Makro nimmt das einmal und fügt den kopierten (gleichen Wert) mehrmal.
siehe Datei und Makro im Anhang
als Beispiel wollte ich mit k-Schleife, den Wert von der Zelle (5,2) jedesmal verändern:
Leider nimmt die Zelle (5,2) den letzten K-Wert:5
Sub Makro1()
'
' Makro1 Makro
Dim j As Integer
Dim k As Integer
For j = 4 To 60 Step 6
For k = 1 To 5
Cells(5, 2) = k
Range(Cells(4, 1), Cells(4 + Cells(2, 2).Value + 3, 1 + Cells(1, 2).Value)).Select
Selection.Copy
Range("A" & j + Cells(2, 2).Value + 4).Select
ActiveSheet.Paste
Next k
Next j
will mit dem Makro bestimmte Zellbereiche mehrfach kopieren. Und die kopierten Bereiche nach unten einfügen.
Vor jedem Kopiervorgang ändern sich die Zelleninhalte. Nur mein Makro nimmt das einmal und fügt den kopierten (gleichen Wert) mehrmal.
siehe Datei und Makro im Anhang
als Beispiel wollte ich mit k-Schleife, den Wert von der Zelle (5,2) jedesmal verändern:
Leider nimmt die Zelle (5,2) den letzten K-Wert:5
Sub Makro1()
'
' Makro1 Makro
Dim j As Integer
Dim k As Integer
For j = 4 To 60 Step 6
For k = 1 To 5
Cells(5, 2) = k
Range(Cells(4, 1), Cells(4 + Cells(2, 2).Value + 3, 1 + Cells(1, 2).Value)).Select
Selection.Copy
Range("A" & j + Cells(2, 2).Value + 4).Select
ActiveSheet.Paste
Next k
Next j