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

Makro zum Zeilenlöschen

Makro zum Zeilenlöschen
05.02.2004 16:11:23
Sigi
Hi Leute,
ich bin ein absoluter VBA Neuling und stehe vor einem Problem:
Ich möchte ein Makro programmieren, dass überprüft ob in der aktiven Zelle irgendwas steht oder nicht. Falls die Zelle leer soll die ganze Zeile gelöscht werden.
Danach soll das Programm in derselben Sapalte zwei Zeilen weiterspringen und die gleiche Überprüfung vornehmen.Das soll bis zur letzten Zeile dann so weitergehen(Schleife?)
Vorab dankend,
Sigi

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

Betreff
Datum
Anwender
Anzeige
Tipp
05.02.2004 16:21:54
Josef Ehrensberger
Hallo Sigi!
Ein kleiner Tipp.
Beim löschen von Zellen oder Zeilen ist es immer
ratsam, die Schleife bei der letzten Zelle/Zeile
beginnen zu lassen.
also z.B.

For intC = 100 to 2 Step -1
..löschcode
next
Gruß Sepp
AW: Makro zum Zeilenlöschen
05.02.2004 16:35:22
Roland Hochhäuser
Hallo Sigi,
ich mache das immer so

Sub LeerzellenLöschen()
Dim i As Integer
For i = Range("A63356").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountBlank(Rows(i)) = 256 Then Rows(i).Delete
Next
End Sub

Gruß
Roland
AW: Makro zum Zeilenlöschen
06.02.2004 12:59:42
Sigi
Danke für die Tipps!!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige