|
Hallo zusammen.
Ich habe ein Problem mit einem Makro zum Speichern einer Excel 2013 Arbeitsmappe .
Die Mappe soll beim betätigen des normalen "Speichern" Icon, die Arbeitsmappe ( 2 Blätter + ein verlinktes Word ) Speichern und dazu einen vorgegebenen Pfad ( immer der gleiche) und den Dateinamen aus zwei Zellen nehmen.
Der Code funktioniert beim manuellen ausführen des Markos - ABER ich schaffe es nicht es zu automatisieren ( muss leider Idioten sicher sein für meine Mitarbeiter ).
Nachfolgend der Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "Z:\AQ\AQ7_ReklamationsAbteilung\Technik\Berichte Dieselmotor\2015\"
Datei = Range("F4") & ("_") & Range("B6") & ".xls"
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy <> False Then ActiveWorkbook.SaveAs SaveDummy
End SubNun das Problem: wenn ich den Code so speichere, stürtzt Excel beim Speichern des Dokuments ab , ABER speichert das die Arbeitsmappe wie gewünscht.
Danke im Voraus für eure Hilfe
|