msg box
23.09.2003 10:05:22
bison
folg. SUB + msg Box habe ich erstellt, für die schaltflächen ja und nein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Wenn nicht sicher, dass alle erforderlichen Daten eingegeben wurden, überprüfen Sie dies bitte noch einmal. Fehlende oder falsch eingegebene Werte führen zu falschen Berechnungen der PivotTable", _
4 + 48, "Liebe(r) " & Application.UserName)
End Sub
So, wo und wie kann ich jetzt eingeben, dass bei "ja" gespeichert wird, bei "nein" nicht gespeichert wird. außerdem die Frage ob wirklich gespeichert werden soll!
Ich danke euch schon mal!!!!