Hi,
ich setze unten stehendes Makro in 2 Auswertungen ein, bei der einen funktioniert es tadellos, bei der anderen nicht. Der Code bei beiden Auswertungen ist vollkommen identisch, nur unten stehender Ausschnitt nicht (in der anderen Tabelle werden die Zellen gelöscht wenn G leer ist).
Es sollen alle Zeilen ab A5 gelöscht werden, wenn H leer ist!
Es werden mir aber 5 Zellen am Ende angezeigt, bei denen H leer ist !! ??
Dim lngLetzte As Long
Dim lngZeile As Long
lngLetzte = IIf(IsEmpty(Range("H65536")), Range("H65536").End(xlUp).Row + 1, 65536)
For lngZeile = lngLetzte To 5 Step -1
If Cells(lngZeile, 8) = "" Then
Cells(lngZeile, 8).EntireRow.Delete
End If
Next
Ich sehe den Fehler einfach nicht ;-(
Gruss - Petra