Makro (Auto Speichern) funktioniert nicht mehr
24.10.2018 10:23:28
Walter
ich bin leicht verzweifelt. Habe für das automatische Speichern seit geraumer Zeit ein kleines Makro, welches einwandfrei funktioniert hat.
Seit neuestem bekomme ich jedoch immer nach dem Speichern des ersten Blattes in eine eigene Datei einen Laufzeitfehler '1004' - Anwendungs- oder Objektdefinierter Fehler, manchmal auch einfach nur einen Fehler 400.
Ich komme leider nicht hinter den Fehler.
Hier der Code:
Dim i As Integer
Dim SaveAsName As String
Dim SaveAsPW As String
Public Sub AlleTabs_alsDatei()
For i = 6 To ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
SaveAsName = WorksheetFunction.VLookup(Sheets(i).Name, Sheets("SaveAs_List").Range("A1:C22") _
, 2, False)
SaveAsPW = WorksheetFunction.VLookup(Sheets(i).Name, Sheets("SaveAs_List").Range("A1:C22"), _
3, False)
Sheets(i).Copy
ActiveWorkbook.SaveAs SaveAsName & "_Datei_GJ_Q", , SaveAsPW
ActiveWorkbook.Close
Application.ScreenUpdating = True
Next
End Sub
Herzlichen Dank im Voraus für sämtlichen Input!
MFG
W.B.
Anzeige