Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Aufforderung zum speichern in Original

Betrifft: Aufforderung zum speichern in Original von: hans
Geschrieben am: 02.10.2020 10:36:13

Hallo,

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

Betrifft: AW: Aufforderung zum speichern in Original
von: chris b.
Geschrieben am: 02.10.2020 11:54:15

Hallo Hans,
hoffe ich verstehe richtig.Meinst du so ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("?nderungen in Original speichern?", vbYesNo) = vbYes Then

Workbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung.xlsm"

End If

End Sub


Betrifft: AW: Aufforderung zum speichern in Original
von: hans
Geschrieben am: 02.10.2020 12:05:22

Ja, genauso!!!

Vielen Dank Chris