Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeilen einfügen

Leerzeilen einfügen
27.03.2005 21:29:27
Josef
Guten Abend!
Ich möchte ab der 2.Zeile mittels VBA nach jedem eingetragenen Wert eine Leerzeile einfügen.Wie würde hier bitte der Code lauten?
Danke
Josef
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen einfügen
27.03.2005 22:00:49
Oberschlumpf
Hi Josef
Guckst Du unter www.google.de und verwendest den Suchtext "leerzeile einfügen site:herber.de
Da is was dabei.
Cu
Thorsten
AW: Leerzeilen einfügen
27.03.2005 22:04:54
Josef
Hallo Namensvetter!
Das geht z.b. so.

Sub leerzeilen()
Dim lRow As Long, lastRow As Long
On Error GoTo errorhandler
Application.ScreenUpdating = False
lastRow = IIf(Range("A65536") <> "", 65536, _
Range("A65536").End(xlUp).Row)
For lRow = lastRow To 3 Step -1
If Cells(lRow, 1) <> "" Then Rows(lRow).Insert
Next
errorhandler:
Application.ScreenUpdating = True
End Sub

Wobei ich angenommen habe, das in Spalte "A" immer Einträge stehen!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Anzeige
AW: Leerzeilen einfügen
27.03.2005 22:38:16
Josef
Hallo Josef!
Besten Dank für die super Lösung. funktioniert bereits bestens.
Ich wünsche Dir noch ein schönes Wochenende.
Schöne Grüße aus Wien
Josef
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige