ich könnte bei folgendem Problem Eure Hilfe gebrauchen.
Das speichern einer Datei fange ich im BeforSave-Ereignis mit cancel=true ab.
Nun soll der "Speichern Dialog" mit einem vorgeschlagenen Pfad angezeigt werden. Das _ funktioniert soweit auch. Ich verwende folgenden Code (hier nur das wesentlichste):
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
With Application.FileDialog(msoFileDialogSaveAs)
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=ActiveWorkbook.FileFormat
Application.EnableEvents = True
Das cancel=true mache ich, damit das BeforeSave-Event nicht erneut aufgerufen wird. Allerdings wird die Datei jetzt nicht unter dem angegebenen Pfad gespeichert. Und ich habe keine Ahnung warum nicht... Hat da jemand einen Tipp für mich ?
Viele Grüße
Stefan