Daten mit Attribut "Killen"

Sub KillFiles()
Dim lngL As Long, zz As Long, nicht1 As Long
lngL = Cells(Rows.Count, 1).End(xlUp).Row             ' letzte Zeile Spalte A
If lngL < Cells(Rows.Count, 2).End(xlUp).Row Then _
lngL = Cells(Rows.Count, 2).End(xlUp).Row          ' letzte Zeile Spalte B
On Error GoTo XErr
For zz = 1 To lngL
Application.StatusBar = Format(zz, "00000 von ") & lngL & "   |   Nicht gelöscht  " & nicht1
If Not IsEmpty(Cells(zz, 1)) Then Kill Cells(zz, 1) ' Lösche File in Spalte A
Next zz
lngL = lngL - nicht1 + 1
MsgBox "Löschen erledigt! " & Chr(10) & lngL & "  von  " & zz & " Dateien gelöscht!"
Application.StatusBar = False
Exit Sub
XErr:
If Err.Number = 53 Then nicht1 = nicht1 + 1                   ' File nicht gefunden - weiter
Resume Next
End Sub