Leerzeilen einfügen

Bild

Betrifft: Leerzeilen einfügen
von: Josef
Geschrieben am: 27.03.2005 21:29:27
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

Bild

Betrifft: AW: Leerzeilen einfügen
von: Oberschlumpf
Geschrieben am: 27.03.2005 22:00:49
Hi Josef
Guckst Du unter www.google.de und verwendest den Suchtext "leerzeile einfügen site:herber.de
Da is was dabei.
Cu
Thorsten
Bild

Betrifft: AW: Leerzeilen einfügen
von: Josef Ehrensberger
Geschrieben am: 27.03.2005 22:04:54
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!


Bild

Betrifft: AW: Leerzeilen einfügen
von: Josef
Geschrieben am: 27.03.2005 22:38:16
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Leerzeilen einfügen"