PDA

Vollständige Version anzeigen : Zeilen löschen wenn...


Rudi G
20.03.2009, 11:49
Hi,
ich wollte wenn in Spalte G die Buchstaben UV oder BF vorkommen die ganze Zeile gelöscht haben. Leider macht mein Makro gar nichts.


Columns("G:G").Select


Dim Zelle As Range
Dim i&
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "G").End(xlUp).Row To 2 Step -1
If LCase(Cells(i, "G")) = "BF" Or LCase(Cells(i, "G")) = "UV" Then
Cells(i, "G").EntireRow.Delete
End If
Next
Application.ScreenUpdating = True



Hat jemand eine Idee was ich falsch mache?

< Peter >
20.03.2009, 12:11
Hallo,

probier es mal so:

Sub löschen()
Dim I As Long
For I = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
On Error Resume Next
If Cells(I, 7).Value = "UV" Or Cells(I, 7).Value = "BF" Then
Rows(I).Delete
End If
Next
End Sub

BoskoBiati
20.03.2009, 12:19
Hallo Rudi,

ohne LCase geht´s bei mir.
Du solltest, wenn Du schon LCase verwenden willst auch nach "uv" und "bf" abfragen!

Rudi G
20.03.2009, 12:59
Hallo Peter,

vielen Dank,
so geht es.

;)