begriff suchen zeile löschen funzt nur bedingt
28.09.2006 10:06:29
achim
wer kann mal schauen
dieser code funzt nur bedingt d.h.
in der spalte E steht in den verschiedenen zellen der begriff löschen nun löscht das makro fast alle aber einige obwohl keine leeren zeichen oder so nicht.
vestehe ich nicht?
was muss an dem code geändert werden?
Sub löschenMV37MV38NVBegriffe()
Sheets("Sheet1").Activate
Dim Lrow As Long
Application.ScreenUpdating = False
With Sheets("Sheet1")
'letzte Zeile in Spalte E
Lrow = .Cells(Rows.Count, 5).End(xlUp).Row
For i = Lrow To 1 Step -1
If .Cells(i, 5) = "löschen" Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub
danke
achim h.