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

Beiträge aus den Excel-Beispielen zum Thema "Tabellen zusammenlegen"