save wird nicht ausgeführt
05.04.2005 08:26:08
Andreas
ich habe bereits in der vergangenen Woche dieses Problem ins Forum eingestellt, leider aber ohne passende Lösung - deshalb erneut mein Versuch.
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.
Noch eine Anmerkung: wenn ich über das Menü - Datei - schließen gehe, funktioniert alles einwandfrei !?!
Ich bin für alle Lösungsvorschläge offen und dankbar.
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