Office: Makro gesucht Zeile kopieren und in jede x-te Zeile einfügen

Hallo,

ich habe lange in Eurem Forum gesucht. Konnte viele andere interessante Problemlösungen finden aber leider keine für mein Problem.

Wie kann man eine Zeile kopieren und in jede x-te Zeile darunter einfügen. Analog auch für Spalten?

Vielen Dank für Eure Hilfe.

Beste Grüße

Philipp

 

Hallo!

Dieser Code kopiert die aktive Zeile, fügt alle 5 Zeilen darunter eine weitere Zeile ein und kopiert die besagten Werte dorthin.

Code:

Sub test()
Dim z As Long, Quelle As Long, bisZeile As Long
bisZeile = 40
Quelle = ActiveCell.Row
Do Until z > bisZeile
z = z + 5
Rows(Quelle + z).Insert (xlShiftDown)
Rows(Quelle).Copy Rows(Quelle + z)
Loop
End Sub

Für Spalten analog mit "Columns" statt "Rows".

 

Vielen, vielen Dank...

 

NOCH NICHT GANZ

Hallo,

das Makro macht alles richtig jedoch fügt das ding immer eine zeile ein.
Wenn ich also in einer bestehenden tabelle in welcher jede 5 Zeile noch frei bzw. zu beschriften ist (z.B. immer die Summe der 4 Zeilen darüber) funktioniert das nicht...

Danke schon mal im voraus

 

Hallo!

Dann lass einfach diese Zeile raus:
Rows(Quelle + z).Insert (xlShiftDown)