Office: Nach jeder Zeile eine neue einfügen

Hi zusammen,

ich habe eine Excel mit ungefähr 600 Zeilen. Jetzt würde ich gerne nach jeder einzelnen der Zeilen zwei weitere (leere) Zeilen einfügen. Gibt es einen Trick, wie das schneller geht, als es bei jeder einzelnen Zeile zu machen?

Grüße
DerEliminator

 

Moin!
Entweder mittels VBA oder per Formel:
=WENN(REST(ZEILE();3)=0;A2;"")
Dann Formelzellen kopieren und als Wert einfügen.

Gruß Ralf

 

Hi,

per Makro:

Code:

Sub LeereEinfugen()
    Dim lngZeile As Long
    For lngZeile = Cells(Rows.Count, 1).End(xlUp).Row - 1 To 1 Step -1
        Range(Cells(lngZeile + 1, 1), Cells(lngZeile + 2, 1)).EntireRow.Insert
    Next lngZeile
End Sub

---

 

Hi,

wieso braucht man sowas?

 

Mit der Filterfunktion

 

Das müsstest Du uns zeigen.
Wie soll eine reduzierende Funktion eine Tabelle erweitern?

 

RPP mit einer Hilfsspalte.
Die vorhandenen Von 1 - 600 Nummerieren
Und das dann mit zwei mal 600 leeren Zellen wiederholen und dann Filtern, oder besser Sortieren ( wollte ich sagen )

 

Ist ja auch "fast" das Gleiche …
Und nun?
Das Ganze per Formel oder völlig manuell?
Letzteres ist wohl kaum im Sinne des Threaderstellers.
Ich hätte so etwas:

	A	B	C	D	E	F
1	1	x	y		x	y
2	2	x	y
3	3	x	y
4	4	x	y		x	y
5	5	x	y
6
7					x	y
8
9
10					x	y
11
12
13					x	y
14
15

Zelle	Formel
A1	=SEQUENZ(ANZAHL2(B:B))
E1	=SPALTENWAHL(SORTIEREN(WENNNV(VSTAPELN(A1:C5;A1#;A1#);""));2;3)