Office: Zeilen Kopieren und darunter X mal einfügen

supermario73 · 20. Oktober 2017

Hallo Forum

Ich Blicks grad nicht mehr!

In einem Makro müssen noch Zeilen 6 bis 9 kopiert werden und darunter (ab Zeile 10) X-fach (und dann Zeile 14 usw.) eingefügt werden.
Also wär kann den Code ergänzen?
Code:

Sub Zeilen_kopieren()
Dim i As Long
Dim var As Long

var = Range("B4").Value
For i = 1 To var
Bitte den code ergänzen!
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Besten Dank für Eure Hilfe!

:)

Hajo_Zi · 22. Oktober 2017

Code:

Option Explicit

Sub Zeilen_kopieren()
Dim i As Long
Dim var As Long
var = Range("B4").Value
For i = 9 To var * 3 + 3 Step 3
Rows("6:9").Copy Rows(i)
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

supermario73 · 22. Oktober 2017

Danke für die superschnelle Antwort.

Nun klemmt es weil ich das Makro kombiniert habe und die Schlaufe natürlich die gleichen Variablen haben. Ich verstehe nicht warum dies nicht funktioniert, da die erste Schlaufe ja komplett fertig ist.

Code:

Sub Spalten_kopieren()
Dim i As Long
Dim var As Long
var = Range("B4").Value
For i = 1 To var
Range("B6:B16").Copy Cells(6, i + 2)
Next i
Application.CutCopyMode = False

var = Range("B4").Value
Sheets("project schedule tracking").Select

For i = 1 To var
For i = 9 To var * 3 + 3 Step 3 Hier erscheint Fehler: For-Steuervariable wird bereits verwendet
Rows("6:9").Copy Rows(i)

Next i
Application.CutCopyMode = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hilfe ist willkommen.
Besten Dank

Nepumuk · 22. Oktober 2017

Hallo,

lösch die Zeile:

Code:

For i = 1 To var
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

supermario73 · 22. Oktober 2017

Ach so. Ja nun läufts!

Besten Dank!!

Office: Zeilen Kopieren und darunter X mal einfügen

Zeilen Kopieren und darunter X mal einfügen

Zeilen Kopieren und darunter X mal einfügen

Zeilen Kopieren und darunter X mal einfügen

Zeilen Kopieren und darunter X mal einfügen - Similar Threads - Zeilen Kopieren einfügen

Per VBA Zeilen einfügen und danach in diese Texte kopieren

VBA Makro, einzelne Zellen kopieren und in fortlaufende Zeile einfügen

Excel Zeile kopieren und unterhalb einfügen

Tabelle in die nächste leere Zeile einfügen

Zeilen nach XWert durchsuchen und nMal in Ziel kopieren

Zeilen kopieren und einfügen mittels Button

Makro Zeilen kopieren und einfügen nach Bedingung