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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige