Alle Daten in einem Ordner durchlaufen
Matthias
Ich versuche mit diesem Code alle Bedingten Formatierungen aus allen Exceldateien in einem Ordner zu entfernen. Leider scheint es jedoch noch einen Fehler zu haben:
Code:
Sub Dateien_Auf_Speichern_Zu()
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "C:\Geschäftliches\Test\"
Datei = Dir(PFAD & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei ""
Application.Workbooks.Open Filename:=Datei
ActiveSheet.Unprotect
Cells.FormatConditions.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Fehler:
Laufzeitfehler 1004
'Name-der-Datei' wurde nicht gefunden. Überprüfen Sie die Rechtschreibung des Dateinamens, und überprüfen Sie, ob der Speicherort der Datei korrekt ist.
Könnt ihr mir eventuell weiterhelfen?
Danke und liebe Grüsse
Matthias