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

For Each rw In Worksheets

Forumthread: For Each rw In Worksheets

For Each rw In Worksheets
21.06.2004 13:42:38
ray
Hallo,
irgendwas mache ich falsch. Ich möchte das alle zeilen durchsucht werden und wenn in Spalte h nix ist dann soll die zeile raus.
Mein Versuch, der dem Irrtum unterlag:

Sub Zeile_raus()
For Each rw In Worksheets("RL").Cells(1, 8).CurrentRegion.Rows
this = rw.Cells(1, 8).Value
If this = "" Then rw.Delete
Next
End Sub

Wo ist der kleine Fehler?
Danke und Gruß aus dem sonnigen Hamburg bei Winter(Sommer)anfänglichen 12 Grad
Ray
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: For Each rw In Worksheets
21.06.2004 15:32:49
Uwe
Hallo Ray,
so gehts:

Sub Zeile_raus()
Dim rngZelle As Range
For Each rngZelle In Worksheets("RL").Cells(1, 8).CurrentRegion.Columns("H").Cells
If rngZelle = "" Then rngZelle.EntireRow.Delete
Next
End Sub

Gruß Uwe
AW: For Each rw In Worksheets
Reinhard
Hi Ray,
probiers mal so:

Sub Zeile_raus()
letze = Worksheets("RL").Cells(65536, 1).End(xlUp).Row 'ermittelt letzte Zelle in A
For n = letzte To 1 Step -1
If Cells(n, 8) = "" Then Columns(n).Delete ' löscht Zeile n wenn Hn leer
Next n
End Sub

Gruß
Reinhard
Anzeige
Danke Euch zwei - hat geholfen. oT
21.06.2004 15:40:05
ray
oT
sorry, verklickt, natürl nicht offen
ray
oT
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige