Liebe Wissende,
ich hab ein Blatt mit ca. 600 Zeilen und möchte, dass jeweils zwischen diesen Zeilen 3 neue eingefügt werden.
Habt ihr eine Idee, wie ich das recht zügig hinter mich bringen kann, ohne blöd zu werden?
Vielen Dank für eventuelle Hilfe.
Freundliche Grüße
Jorge
Hi,
sinnvoll über die Oberfläche fällt mir auch nichts ein.
Ich würde das über VBA lösen, sprich ein Marko programmieren.
Und zwar würde ich in deinem Blatt von 1 bis 600 die Zeilen durchlaufen und diesen Inhalt in ein zweites Blatt kopieren und immer 3 Zeilen dazuaddieren.
Ist ne Fleisaufgabe.
Jemand bei dir der VBA kann ?
Gruß
Proteus
ich hab ein Blatt mit ca. 600 Zeilen und möchte, dass jeweils
zwischen diesen Zeilen 3 neue eingefügt werden.Habt ihr eine Idee, wie ich das recht zügig hinter mich
bringen kann, ohne blöd zu werden?
Hallo Jorge,
hab grad nen Knoten im Hirn, ich glaub ich sollt mal schlafen, ich sehe genau daß mein Code umständlich ist, aber egal, er funktioniert.
Alt+F11, oben Einfügen—Modul, dortrein den Code kopieren, den Curser in den Code stellen und F5 drücken.
Sub drei()
Dim Zei As Long
For Zei = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
ActiveSheet.Rows(Zei + 1 & ":" & Zei + 3).Insert
Next Zei
End Sub
Gruß
Reinhard
Geh schlafen - du Guuuuder.
HSV hat gewonnen.
Danke. Wieder mal.
Gruß
Jorge