Aufforderung zum speichern in Original
02.10.2020 10:36:13
hans
habe eine Excel mit MsgBox und Ja/Nein- Abfrage ob unter dem aktuellen Datum gespeichert soll. Dann ändere ich die Datei fürs aktuelle Datum.
Nun benötige ich aber den neuen Datenstand zur Eingabe für den nächsten Tag.
Wie kann ich bei klicken aufs rote Kreuzchen eine MsgBox generieren die abfragt ob in die Originaldatei zurückgespeichert werden soll?!
Danke und Gruß hans
mein aktueller Versuch:
Private Sub Workbook_Open()
If MsgBox("Dokument bearbeiten?", vbYesNo) = vbYes Then
ActiveWorkbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung " & Format(Now, "yyyy.mm. _
dd") & ".xls"
End If
End Sub
Private Sub close_click()
If MsgBox("?nderungen in Original speichern?", vbYesNo) = vbYes Then
Workbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung.xlsm"
End If
End Sub
Anzeige