tango1981 Geschrieben 12. Februar 2007 Geschrieben 12. Februar 2007 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. Zitieren
Amstelchen Geschrieben 12. Februar 2007 Geschrieben 12. Februar 2007 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 Zitieren
tango1981 Geschrieben 12. Februar 2007 Autor Geschrieben 12. Februar 2007 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 Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.