Herbers Excel-Forum - das Archiv

Zeile loeschen.

Bild

Betrifft: Zeile loeschen.
von: marc

Geschrieben am: 17.02.2005 12:07:43
hallo zusammen,
wenn in Spalte ("H2:H50") keine Werte/Text stehen,dann
die gesamte Zeile loeschen.
Ich versuche den unten stehenden Code an die Beduerfnisse ,der Aufgabe zu anpassen ohne Erfolg.
marc :o)
For Each c In Range("H2:H30")
If c.Value = "" Then c.Delete Shift:=xlUp
Next c


End Sub
Bild

Betrifft: AW: Zeile loeschen.
von: Galenzo
Geschrieben am: 17.02.2005 12:16:54
das erledigt diese Anweisung:
Range("H2:H30").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Bild

Betrifft: AW: Danke
von: marc
Geschrieben am: 17.02.2005 12:24:43
Hallo Galenzo,
danke fuer die Muehe,
marc :o)
Bild

Betrifft: AW: Zeile loeschen.
von: Josef Ehrensberger

Geschrieben am: 17.02.2005 12:18:19
Hallo Marc!
Beim Löschen muss man immer von unten nach oben arbeiten!
Dim lRow as long
For lRow = 50 to 2 Step -1
If Cells(lRow, 8) = "" Then Cells(lRow, 8).Delete Shift:=xlUp
Next


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Zeile loeschen.
von: marc
Geschrieben am: 17.02.2005 12:25:44
hallo Josef,
danke fuer die Hilfe.
marc :o)
 Bild