Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen

VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen
23.02.2005 22:54:29
2
Hallo,
habe folgendes Anliegen:
Zur Aufbereitung von übernommenen Daten benutze ich ein Makro und das funktioniert eigentlich auch einwandfrei.
Nur durch die übernommene Liste kommt es vor, dass durch den Seitenumbruch mal zwei Leerzeilen nacheinander kommen. Diese bzw. eine davon lösche ich bis jetzt immer manuell.
Kennt jemand einen VBA-Code, welcher prüft, ob 2 Leerzeilen nacheinader kommen und dann eine davon löscht, bis dann der letzte Inhalt in Spalte A kommt.
Vielleicht kann mir ja jemand helfen.
Gruß
Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen
2

Sub zwei_leer()
Dim z As Long
For z = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Application.CountA(Rows(z - 1 & ":" & z)) = 0 Then
Rows(z).Delete
End If
Next
End Sub

Bert
Genial - danke!!!
23.02.2005 23:44:20
Bernd
Genial - funktioniert super!!!
Danke Bert
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige