Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen

20.04.2003 00:33:29

rglegacy

Ich habe eine Tabelle mit einem Tabellenbereich von A2:IG2016 und brauche zwischen jeder Zeile eine Leerzeile.
Wie kann ich das mit einem einfachen Makro bewerkstelligen?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zeilen einfügen

20.04.2003 00:44:21

Ramses
Re: Zeilen einfügen

20.04.2003 00:51:50

rglegacy
Re: Zeilen einfügen

20.04.2003 01:01:03

Meinolf

Re: Zeilen einfügen

20.04.2003 00:44:21

Ramses

Sub New_Row()
For i = 2 To 4032 Step 2
Rows(i).Insert (xlDown)
Next i
End Sub

Re: Zeilen einfügen

20.04.2003 00:51:50

rglegacy

Danke, haut einwandfrei hin.

Re: Zeilen einfügen

20.04.2003 01:01:03

Meinolf

Hallo rg
versuchs mal hiermit aber vorher Datei sichern

Sub Makro1()

Range("b7").Select 'deine erste reihe bitte anpassen

For i = 1 To 2016

Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select

Next

End Sub

Mfg Meinolf

Forumthread: Zeilen einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread