Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige