For each next
10.12.2003 11:03:38
Benjamin
habe folgenden code zusammengebastelt.
Funktioniert aber leider nur zur Hälfte.
Ich muss ihn immer mehrmals ausführen damit das Ergebnis stimmt.
Hat jemand ne Idee wo mein Fehler ist?
Vielen Dank im Vorraus.
LG Ben
Sub Anpassen()
Dim Ende As Integer
ActiveSheet.Range("d65536").End(xlUp).Select
Ende = ActiveCell.Row
Dim r As Range
Set r = Range("D21", Range("D" & Ende))
Dim Zeile As Integer
For Each c In r
c.Activate
Zeile = ActiveCell.Row
Zelle = ActiveCell.Address
If Left(c, 5) <> "Daily" _
And Cells(Zeile, "A").Value = "" _
Or Cells(Zeile, "A").Value = "0" Then
c.EntireRow.Delete
End If
Next
End Sub