application.quit
22.03.2006 17:36:45
peter
ich hab noch eine frage:
warum wird bei dem folgenden code excel nicht geschlossen. ich dachte die application.quit anweisung beendet excel.
Private Sub UserForm_Terminate()
Dim Meldung As String
Meldung = "Wollen sie das Programm wirklich beenden?"
If MsgBox(Meldung, vbInformation Or vbYesNo, "STEBO Calculation V 1.0") = vbYes Then
Unload Me
ActiveWorkbook.Close SaveChanges = False
Application.Quit
End If
End Sub
vielen dank
peter
Anzeige