ich habe ein Problem mit der Abfrage, ob eine Datei gespeichert werden soll
Folgender Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
abfr = MsgBox("Sollen die Daten aus dem Formular vor dem Schließen gelöscht werden?", vbExclamation + vbYesNo, " Daten löschen")
If abfr = vbNo Then
Exit Sub
End If
With Sheets("Formular").Range("A10:A14")
.ClearContents
End With
With Sheets("Formular").Range("B25:E44")
.ClearContents
End With
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Ich möchte die Datei schließen, ohne dass nachgefragt wird, ob
die Datei gespeichert werden soll.
Natürlich macht der befehl:DisplayAlerts direkt hintereinander so keinen Sinn.
Wie kann ich es machen, dass die Nachfrage nicht erscheint?
Vielen Dank im voraus für die Hilfe,
Gruß
Michael