Hallo,

also habe ein sehr dringendes Problem bzw. Frage.

Und zwar habe ich ein Tabellenblatt mit 250 Einträgen. Jetzt möchte ich unter jedem Eintrag diesen dreimal dadrunter haben. Also so:

test test test test test ========so sieht die Tabelle jetzt aus

a a a a a ========so sieht die Tabelle jetzt aus

test test test test test

test test test test test

test test test test test

a a a a a

a a a a a

a a a a a

so soll sie dann aussehen. Also im Prinzip nehme ich die erste Zeile und kopier sie mir, füge sie dann 3 mal ein und nimm mir die nächste vor. Und das dann in einer Schleife.

Kann mir eben schnell einer nen Code geben, wäre echt nett. Danke im voraus.

Also im Prinzip nehme ich die erste Zeile und kopier sie mir, füge sie dann 3 mal ein und nimm mir die nächste vor. Und das dann in einer Schleife.

dein ansatz ist schon mal nicht schlecht.

Kann mir eben schnell einer nen Code geben, wäre echt nett. Danke im voraus.

wieso versuchst du es nicht mit dem allseits beliebten, aber viel zu oft unterschätzten makrorecorder?

    Rows("1:1").Select

    Selection.Copy

    Selection.Insert Shift:=xlDown

    Rows("1:1").Select

    Selection.Copy

    Selection.Insert Shift:=xlDown

wenn du das für alle 250 (oder mehr) zeilen machen möchtest, ersetzt du zeilenangaben in der positionierungsanweisung "Select" durch eine schleifenvariable und läuft die durch - stichworte for, next, do, while, loop, until.

s'Amstel

Habe es jetzt so gelöst:

Sub Zeilenkompieren()

y = 120

x = 1

Do While x <> y

Rows(x & ":" & x).Select

Selection.Copy

Selection.Insert Shift:=xlDown

Selection.Copy

Selection.Insert Shift:=xlDown

Selection.Copy

Selection.Insert Shift:=xlDown

x = x + 4

Loop

End Sub