Zeiln löschen VBA funzt nicht... HILFE
Claudia
ich möchte gerne alle Zeilen löschen, wenn in Spalte K folgende Zeichen stehen #NV.
Mit nachstehendem Makro funzt das aber nicht, was ist falsch?
Sub Zeilenlöschen()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 11).End(xlUp).Row
For i = laR To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "#NV" Then
Cells(i, 11).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Bitte helft mir.
Danke und Gruß Claudia