Save wird nicht ausgeführt
31.03.2005 17:16:32
Andreas
ich habe in meine Anwendung einen 'Schließen-Button' integriert. Hierüber wird die Funktion Workbook_Close() aufgerufen. Soweit funktioniert auch alles. Wenn ich nun mein Makro ausführe, kommt die Meldung "Möchten sie die geänderte Datei speichern" - nach bestätigung mit "Ja" wird auch die entsprechende case-Anweisung Sub Ja() ausgeführt. Problem jedoch: die Save-Anweisung wird einfach übergangen mit der Folge, dass die Anwendung nicht gespeichert wird.
Was ist falsch?
Danke im voraus,
Grüße,
Andreas
-------------------------------------------------------------
Private Sub Workbook_Close()
Workbooks(Wrkbk).Close
End Sub
-------------------------------------------------------------
Private Sub workbook_Beforeclose(Cancel As Boolean)
Dim Antwort%
Dim Frage As String
n = ActiveWorkbook.Name
Msg = "Möchten Sie die geänderte Datei speichern?"
Select Case MsgBox(Msg, vbInformation + vbYesNoCancel)
Case vbYes: Call Ja 'Makroaufruf bei Ja
Case vbNo: Call Nein 'Makroaufruf bei Nein
Case vbCancel: Cancel = True 'Abbrechen
End Select
End Sub
-------------------------------------------------------------
Private Sub Ja()
Workbooks(Wrkbk).Activate
Workbooks(Wrkbk).Save
End Sub
...