Excel stürzt bei Makro unregelmäßig ab - was tun?
19.01.2005 11:58:22
Katja
ich habe ein Makro geschrieben, das grob gesagt ein Tabellenblatt kopieren soll, es in eine neue Mappe einfügen und diese Mappe dann als txt.Datei speichern soll:
Sub FedEx_Online()
Sheets("FedEx_Hilfe").Select
Columns("A:B").Select
Selection.Copy
Sheets("FedEx_Online").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'wichtig, weil die Software, die die txt.-Datei später weiterverarbeitet, mit Ergebnissen von Formeln nicht zurecht kommt.
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Replace What:=",", Replacement:=" / ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("FedEx_Online").Copy
ChDir "N:\Zoll+Versand\FedEx"
ActiveWorkbook.SaveAs Filename:="\\Kschneid01\ip-main\split\fedex.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub
Jedenfalls hängt sich Excel bei Ausführung dieses Makros in UNregelmäßigen (!) Abständen auf. "Die Methode "Copy" ist fehlgeschlagen" oder so ähnlich, und das war's dann. Die gelbe Markierung bei "Debuggen" steht immer auf Sheets("FedEx_Online").Copy Das passiert aber wie gesagt nicht jedes Mal, manche Tage gar nicht, andere Tage fast bei jeder Ausführung. Kann es vielleicht sein, dass durch einen Fehler im Makro irgendein Speicher überläuft? Die abgespeicherte txt.-Datei wird, sobald sie in den angegebenen Ordner geschrieben wird, verarbeitet und danach gelöscht, es entsteht also jedes Mal wieder eine neue.
Habt ihr vielleicht eine Idee?
Vielen Dank schonmal,
Gruß Katja