For Each rw In Worksheets
21.06.2004 13:42:38
ray
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