Hallo Gemeinde,
ich brauche eure Hilfe. Folgendes:
Ich möchte Dateien löschen, diese liegen auf dem Pfad N:\07 AB\offene B\
In diesem Ordner befinden sich nur PDF-Dokumente.
Wenn nun in meiner Tabelle Spalte R eine bestimmte Zahl mit zufälliger Zahlenreihenfolge eingetragen wird, soll die dazugehörige Datei, deren Bezeichnung aus dem Eintrag der Spalte D der selben Zeile besteht (beliebige 8-stellige Zahlenfolge), gelöscht werden.
Wenn kein Eintrag in Spalte R vorliegt, soll weiter bis zum nächsten Eintrag gegangen werden.
Nun habe ich beim vorliegenden Code das Problem, dass das Makro immer die Fehlermeldung "Datei nicht gefunden" ausgibt. Ich weiß leider nicht, wie ich den "On Error Resume Next" Anweisung in meinen Code einbaue oder ob ich grundlegend etwas dran ändern muss.
Sub Test()
ThisWorkbook.Worksheets("Banfe").Activate
For y = 4 To Cells(Rows.Count, 18).End(xlUp).Row
If Worksheets("Banfe").Cells(y, 4) Like "*" Then
For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row
Kill "N:\07 Auftragsbearbeitung\offene Banfen\" & Cells(i, 4) & ".pdf"
Next i
End If
Next y
End Sub |