Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile loeschen.

Zeile loeschen.
17.02.2005 12:07:43
marc
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile loeschen.
Galenzo
das erledigt diese Anweisung:
Range("H2:H30").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
AW: Danke
marc
Hallo Galenzo,
danke fuer die Muehe,
marc :o)
AW: Zeile loeschen.
17.02.2005 12:18:19
Josef
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!
AW: Zeile loeschen.
marc
hallo Josef,
danke fuer die Hilfe.
marc :o)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige