Reply To: Test 5

[tom]

Sub Dateien_Loeschen()
Dim i As Integer
Dim letzteZeile As Integer
Dim strPfad As String
Application.ScreenUpdating = False
letzteZeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
For i = 2 To letzteZeile
strPfad = ActiveSheet.Cells(i, 1).Value
If Dir(strPfad) <> “” Then
Kill (strPfad)
ActiveSheet.Cells(i, 1).Font.Color = -11489280
Else
ActiveSheet.Cells(i, 1).AddCommentThreaded (“Datei wurde nicht gefunden.”)
ActiveSheet.Cells(i, 1).Interior.Color = 49407
End If
Next i
Application.ScreenUpdating = True
End Sub