Thema Datum  Von Nutzer Rating
Antwort
Rot Application.Displayalerts funktioniert nicht wie gewünscht
 17.05.2019 12:02:03 Jonas
NotSolved
17.05.2019 12:49:44 Gast30448
NotSolved
17.05.2019 12:59:23 Jonas
NotSolved
17.05.2019 13:15:14 Jonas
NotSolved

Ansicht des Beitrags:
Von:
Jonas		 Datum:
17.05.2019 12:02:03		 Views:
940		 Rating:
     
Antwort:
  Ja
Thema:
Application.Displayalerts funktioniert nicht wie gewünscht

Hi zusammen,

ich möchte über einen Commandbutton in einer Userform das Programm inklusive Sicherheitskopie speichern und dann das Programm beenden, und zwar ohne weitere Abfragen außer die von mir erstellte Msgbox

Leider klappt das so gar nicht wie ich es mir vorgesteltl habe. Die Abfrage ob gespeichert werden soll kommt trotzdem. Muss ich das vielleicht an anderer Stelle einfügen, evtl in einem Workbook_Before_Close sub?

Hier mal mein Code

 

Private Sub Button_ProgrammBeenden_Click()

Application.DisplayAlerts = False

Dim Pfad As String
Pfad = ActiveWorkbook.Path

If MsgBox("Sind Sie sicher dass Sie das Programm schließen möchten?", vbOKCancel) = vbOK Then
    ThisWorkbook.Save
    ThisWorkbook.SaveCopyAs Filename:=Pfad & "Sicherungskopie.xlsm"
    Application.Quit
    Else: Exit Sub
End If


End Sub

Hat jemand eine Idee woran das liegen kann?

Vielen Dank und viele Grüße

Jonas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Application.Displayalerts funktioniert nicht wie gewünscht
 17.05.2019 12:02:03 Jonas
NotSolved
17.05.2019 12:49:44 Gast30448
NotSolved
17.05.2019 12:59:23 Jonas
NotSolved
17.05.2019 13:15:14 Jonas
NotSolved