Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen mit Bedingung - nicht nur Zelle

Zeilen löschen mit Bedingung - nicht nur Zelle
05.09.2007 10:50:05
Jo
Hallo,
untenstehendes Makro löscht mir nur die Zelle, in der die Bedingung steht, aber nicht die ganze Zeile (es sind nun weitere Spalten vorhanden, dessen Einträge in den Zellen mitgelöscht werden sollen):
Was ist zu ergänzen? Zusätzliche Schleife(n)?

Sub ZeilenLoeschenmitbedingung()
Dim lRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
For lRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row To 1 Step -1
If InStr(ws.Cells(lRow, 1), "Ergebnis") > 0 Then ws.Cells(lRow, 1).Delete
Next lRow
End Sub


Grüße
Jo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Then ws.Cells(lRow, 1).EntireRow.Delete oT
05.09.2007 10:51:00
Worti
Gruß Worti

AW: Then ws.Cells(lRow, 1).EntireRow.Delete oT
05.09.2007 10:57:00
Jo
Bingo!!!
vielen Dank für den Hinweis, hätte man ja auch selbst draufkommen können ;-)))
Grüße
Jo

AW: Zeilen löschen mit Bedingung - nicht nur Zelle
05.09.2007 11:02:33
Joe
wie wäre es mit: ws.Rows(lRow).Delete Shift:=xlUp
Bedenke bei Deiner Schleife: alles schiebt sich durch das Delete nach oben und die nächste Zeile wird ggf. überlesen.
Ahoi, Joe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige