Code "sollte" Zeilen löschen, weshalb ohne Erfolg?
01.06.2007 23:46:18
Peter
Diesen Code habe ich heute im Forum erhalten. Nun will ich Zeilen entfernen, bei denen in der Spalte AA jeweils "Löschen" steht.
Hinter dem Wert "Löschen" steht jeweils folgende Formel: =WENN(AB2843="ausblenden";LL;""). Dabei ist LL als Name definiert und bezieht sich auf: "Löschen".
Weshalb werden bei mir die entsprechenden Zeilen durch nachfolgenden Code nicht gelöscht?
Danke für Feedback.
Peter
Sub Zeilen_entfernen()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("AA65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "Löschen" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub