Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen

Zeilen löschen
22.11.2002 13:02:41
Frank
Hallo Zusammen,

ich habe folgendes Problem. Ich möchte aus einer Liste mehrere Zeilen löschen wo die Spalte H leer ist. Wenn nun mehrere aufeinanderfolgende Zeilen leer sind, wird aber nur jede zweite Zeile gelöscht. Ich verwende folgendes VBA

Dim irowl As Integer, irow As Integer
Range("A1").Select
Application.ScreenUpdating = False
For irow = 9 To 428
If IsEmpty(Cells(irow, 8)) Then
Rows(irow).Delete

Gruß Frank

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

Betreff
Datum
Anwender
Anzeige
Re: Zeilen löschen
22.11.2002 13:04:45
Boris
Hallo Frank,

lass die Schleife rückwärts laufen
von 428 to 9 step -1

Gruß Boris

Re: Zeilen löschen
22.11.2002 13:08:16
Udo RiHü
Hallo,
logisch, nach dem löschen wird die nächste Zeile zur aktuellen Zeile. Wenn danach ein Next kommt, wird irow hochgezählet. Also: nach löschen einer Zeile irow um 1 reduzieren, dann klappt's.
Dim irowl As Integer, irow As Integer
Range("A1").Select
Application.ScreenUpdating = False
For irow = 9 To 428
If IsEmpty(Cells(irow, 8)) Then
Rows(irow).Delete
irow=irow-1
End If
Next irow

Gruss Udo


Re: Zeilen löschen
22.11.2002 13:18:35
Frank
Funtioniert. Vielen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige