Hallo zusammen,
ich hab für eine Monatsverarbeitung einen Makrolauf erstellt, in der von allen Dateien sämtliche Verlinkungen gelöscht werden und anschließend die entsprechenden Dateien in einen entsprechenden Monatsordner "historisiert" werden.
Teilweise funktioniert das ausführen und teilweise hängt sich das Makro beim speichern auf. Dann kommt "Fehler beim Speichern." Ein manuelles speichern ist bei dieser Datei dann ebenfalls nicht mehr möglich. Die Excel-Datei ist dann wie zerstört, da beim erneuten öffnen auf die Fehlermeldung "Microsoft Excel funktioniert nicht mehr - Programm neu starten" erscheint. Lässt sich auch nicht mehr reparieren.
Hat jemand einen Tipp wo der Fehler liegen könnte?
Bereits im Voraus herzlichen Dank.
Hier mein Quellcode:
Application.AskToUpdateLinks = False
Workbooks.Open Filename:="O:\ABT\UE\Controlling\UP\Masterordner\1_Berichte\Master_Berichtswesen.xlsm", Local:=True
ArrayV = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For CntLine = 1 To UBound(ArrayV)
ActiveWorkbook.BreakLink Name:=ArrayV(CntLine), Type:=xlLinkTypeExcelLinks
Next CntLine
Application.Wait (Now + TimeValue("0:00:03"))
ChDir Ablagepfad
ActiveWorkbook.SaveAs Filename:= _
Ablagepfad & "\Master_Berichtswesen_" & Jahr & Monat & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close