Wo ist die Bremse?

Private Sub But_letzter_jahr_gesamt_Click()
Dim wksE As Excel.Worksheet
Dim i As Long
Dim dtJahr As Integer
Dim letzte As Long
Application.ScreenUpdating = False
Set wksE = ThisWorkbook.Worksheets("excel")
dtJahr = Format(Now, "yyyy") - 1
letzte = ThisWorkbook.Worksheets("excel").UsedRange.SpecialCells(xlCellTypeLastCell).Row
With wksE
For i = .Cells(letzte, 9).Row To 2 Step -1
If Year(wksE.Cells(i, 9)) <> dtJahr Then
.Rows(i).Delete
End If
Next i
End With
Set wksE = Nothing
Application.ScreenUpdating = True
' Module1.letzter_Jahr_gesamt
End Sub