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

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
20.09.2006 09:59:08
ingo
In meiner Tabelle möchte ich das automatisch die Zeilen gelöscht werden wenn bestimmte Wörter in einer Spalte stehen.Kann mir jemand weiterhelfen?
Danke Ingo
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
20.09.2006 10:36:33
IngGi
Hallo Ingo,
folgendes Makro löscht alle Zeilen des aktiven Tabellenblattes, bei denen in Spalte A "raus", "weg" oder "löschen" steht.

Sub Zeilen_loeschen()
Dim rng As Range
For Each rng In Range("A1:A" & Range("A65536").End(xlUp).Row)
Select Case rng
Case "raus", "weg", "löschen"
rng.EntireRow.Delete
Case Else
End Select
Next 'rng
End Sub
Gruß Ingolf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige