Office: MsgBox vor dem Speichern

Hallo,

ich würde mir gerne eine Info vor dem Speichern anzeigen lassen. Funktioniert bis jetzt auch gut, jedoch der Speichervorgang abgerbochen werden wenn man auf "Abbrechen" drückt.
Bin VBA anfänger, deshalb diese simple fragen *tongue.gif*

Code bis jetzt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a As Variant
a = MsgBox("Überprüfe ob das Datum richtig ist", vbOKCancel, "Speicherhinweis")
End Sub

kann mir jemand helfen?

beste Grüße

Ruben

:)

 

Hallo Ruben,

schau mal in die Deklarationszeile: Die Variable Cancel gibt an, ob der Speichervorgang abgebrochen werden soll.
Code:

Rückgabewerte von MsgBoxen sind vom Typ Integer. Willst Du diese in einer Variable speichern, sollte diese ebenfalls vom Typ Integer sein.

Grüße
EarlFred

 

super danke! Funktioniert Super!