Thema Datum  Von Nutzer Rating
Antwort
Rot Unload Me löst QueryClose-Event aus
 14.09.2018 10:21:51 Volker.S
NotSolved
14.09.2018 11:45:42 Gast70948
NotSolved
14.09.2018 12:21:40 Flotter Feger
NotSolved
14.09.2018 12:42:47 Gast82172
NotSolved
14.09.2018 13:43:34 Flotter Feger
NotSolved
14.09.2018 16:00:27 Gast24319
NotSolved
14.09.2018 16:53:16 Flotter Feger
NotSolved
14.09.2018 20:50:11 Gast89088
NotSolved
21.09.2018 16:21:43 Volker.S
NotSolved
21.09.2018 18:33:15 Gast39245
NotSolved

Ansicht des Beitrags:
Von:
Volker.S		 Datum:
14.09.2018 10:21:51		 Views:
1794		 Rating:
     
Antwort:
  Ja
Thema:
Unload Me löst QueryClose-Event aus
Hallo zusammen, ich habe folgendes Problem. Ich hatte vor ca. 3 Monaten ein relativ großes Makro geschrieben, das zu seiner Zeit fehlerfrei funktionierte. Jetzt wollte ich das Makro erweitern, und auf einmal läuft das Makro nicht mehr fehlerfrei. Leider konnte ich den Fehler bis jetzt nicht lösen, aber zumindest lokalisieren. Das Makro ruft ein UserForm auf, übergibt bei Click auf einen Button in selbigem UserForm die Daten an ein Tabellenblatt, wonach sich das UserForm wieder schließt. So sollte es zumindest sein. Stattdessen scheint die Unload Me-Anweisung die QueryClose-Funktion aufzurufen, die ich eingebaut hattee, damit der User entscheiden kann, das durch das Öffnen des UserForm generierte Tabellenblatt doch wieder zu löschen. Als Code sieht das Ganze so aus: Private Sub CommandButton1_Click() . . . Unload Me End Sub ________________________________________________________________________________________________________________ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 If MsgBox("Soll das neu generierte Schichtprotokoll wieder gelöscht werden?", vbOKCancel, "Meldung") = vbOK Then Application.DisplayAlerts = False Worksheets(3).Delete Application.DisplayAlerts = True Cancel = 0 End If End Sub Entferne ich das Unload Me aus dem Quellcode, wird das QueryClose-Event nicht aufgerufen, aber natürlich schließt sich das UserForm dann nicht. Wo liegt hier der Fehler? Kann mir jemand helfen? Vielen Dank im Voraus.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Unload Me löst QueryClose-Event aus
 14.09.2018 10:21:51 Volker.S
NotSolved
14.09.2018 11:45:42 Gast70948
NotSolved
14.09.2018 12:21:40 Flotter Feger
NotSolved
14.09.2018 12:42:47 Gast82172
NotSolved
14.09.2018 13:43:34 Flotter Feger
NotSolved
14.09.2018 16:00:27 Gast24319
NotSolved
14.09.2018 16:53:16 Flotter Feger
NotSolved
14.09.2018 20:50:11 Gast89088
NotSolved
21.09.2018 16:21:43 Volker.S
NotSolved
21.09.2018 18:33:15 Gast39245
NotSolved