Workbook()Range() Laufzeitfehler 1004
08.02.2019 17:49:55
Teom
Der Code soll Excel Dateien in einem Ordner öffnen, Blattsperre mit dem Passwort "123" entfernen, Bereich D104:AE123 löschen, Blattsperre wieder setzen mit dem gleichen Passwort und anschließend speichern und schließen, als Loop.
Bekomme leider immer einen Fehler bei " Workbooks(datei).Sheets(1).Range("D104:AE123").Clear"
Sub xyz()
Const pfad = "C:\Users\Teom\Desktop\löschen\Input\" 'anpassen
Dim datei As String
datei = Dir(pfad & "*.xlsx")
Do While datei ""
Workbooks.Open Filename:=pfad & datei
Workbooks(datei).Unprotect (123)
Workbooks(datei).Sheets(1).Range("D104:AE123").Clear
Workbooks(datei).Protect (123)
Workbooks(datei).Save
Workbooks(datei).Close
datei = Dir
Loop
End Sub
Anzeige