EntireRow.Delete Excel hängt sich auf
22.08.2016 11:48:23
andthen
ich habe folgendes Problem:
Ich versuche aus einer Datengrundlage alle Zeilen mit einem Nullwert zu löschen.
Sub aufraeumen()
Dim letzteZeile As Integer
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
letzteZeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
For i = 1 To letzteZeile
If ThisWorkbook.Worksheets(1).Range("A" & i).Value = ThisWorkbook.Worksheets(1).Range("A" & i + _
1).Value And ThisWorkbook.Worksheets(1).Range("E" & i + 1).Value = 0 Then
ThisWorkbook.Worksheets(1).Rows(i + 1).EntireRow.Delete
i = i - 1
End If
Next i
'Application.Calculation = xlCalculationAutomatic
'Application.ScreenUpdating = True
End Sub
Leider hängt sich bei der Ausführung Excel immer wieder auf.Habt ihr eine Idee woher das kommt?
VG
andthen