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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige