Zeilen löschen mit Bedingung - nicht nur Zelle
05.09.2007 10:50:05
Jo
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
Anzeige