ich bin mal wieder auf der Suche nach einem passenden Makro, welches mir meine Arbeit erleichtert.
Ich würde gerne die Zeile welche ich markiert habe (ganze Zeile) kopieren und über ihr die kopierte Zeile x-mal einfügen (nicht überschreiben) die Anzahl würde ich gerne über ein Popup-Fenster steuern.
Hierfür konnte ich mir aus diversen Beiträgen auch schon ein funktionierendes Makro zusammenstellen, jedoch ist dieses sehr langsam und benötigt sehr viel Zeit beim einfügen vieler Zeilen.
Vielleicht kann mir ja jemand helfen und das Makro verbessern, ändern oder neu schreiben, damit das Makro schneller arbeitet.
Anbei mein bisheriges Makro:
Sub Zeilen_x_mal_kopieren_()
Dim zZ&, MyRow&, x&
MyRow = ActiveCell.Row
zZ = InputBox("Eingabe:")
Application.ScreenUpdating = False
For x = 1 To zZ - 1
Rows(ActiveCell.Row).Copy
Rows(MyRow).Insert Shift:=xlUp
Application.CutCopyMode = False
Next
Gruß Sven