Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen mit VBA löschen

Forumthread: Zellen mit VBA löschen

Zellen mit VBA löschen
05.02.2003 14:18:24
Ralf_Sigrist
Wie kann ich folgendes Problem lösen: Alle Zeilen, die in Spalte A eine Formel enthalten, jedoch (formelbedingt) leer bleiben, sollen mitsamt den nächsten 20 Zeilen gelöscht werden? Vielen Dank!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen mit VBA löschen
05.02.2003 20:17:49
Udo RiHü

Hallo,
z.B.so. Ungetestet, sollte aber funktionieren.

sub Test()
dim LZ as integer
lz=Range("A65536").end(xlup).row
For Zeile=1 to LZ
if cells(Zeile,1).end(xldown).row=65536 then exit for
if cells(Zeile,1).value="" then
Range(rows(Zeile,1),rows(Zeile+20,1)).entirerow.delete
end if
next Zeile
end Sub

Gruss aus'm Pott
Udo

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige