Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Zeilen einfügen
19.04.2003 22: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
Anzeige
Re: Zeilen einfügen
19.04.2003 22: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
19.04.2003 22:51:50
rglegacy

Danke, haut einwandfrei hin.

Re: Zeilen einfügen
19.04.2003 23: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


Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige