Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Einfügen Leerzeilen
21.06.2005 13:18:06
Boris
Guten Tag,
ich muss in einer Exceltabelle über jeder Zeile eine Leerzeile einfügen. Es sind aber sehr viele Zeilen und ich habe keine Lust, jede Zeile anklicken zu müssen, um dann die Zeilen einfügen zu können. Gibt es eine Möglichkeit alle Zeilen gleichzeitig zu markieren, um dann über jeder einzelnen Zeile eine Leerzeile einzufügen.
Vielen Dank schonmal für die Hilfe , Gruß Boris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen Leerzeilen
21.06.2005 13:23:59
IngGi
Hallo Boris,
in VBA z.B. so:

Sub Leerzeilen()
Dim rng As Range
Set rng = Range("A2")
Do
rng.EntireRow.Insert
Set rng = rng.Offset(1, 0)
Loop Until rng = ""
End Sub

Gruß Ingolf
AW: Einfügen Leerzeilen
21.06.2005 13:24:20
Hajo_Zi
Hallo Boris,
lasse ein Makro laufen.
Option Explicit

Sub boris()
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
For LoI = LoLetzte To 1 Step -1
Rows(LoI).Insert Shift:=xlDown
Next LoI
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige