|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Unload Me löst QueryClose-Event aus |
14.09.2018 10:21:51 |
Volker.S |
|
|
|
14.09.2018 11:45:42 |
Gast70948 |
|
|
|
14.09.2018 12:21:40 |
Flotter Feger |
|
|
|
14.09.2018 12:42:47 |
Gast82172 |
|
|
|
14.09.2018 13:43:34 |
Flotter Feger |
|
|
|
14.09.2018 16:00:27 |
Gast24319 |
|
|
|
14.09.2018 16:53:16 |
Flotter Feger |
|
|
|
14.09.2018 20:50:11 |
Gast89088 |
|
|
|
21.09.2018 16:21:43 |
Volker.S |
|
|
|
21.09.2018 18:33:15 |
Gast39245 |
|
|
Von:
Volker.S |
Datum:
14.09.2018 10:21:51 |
Views:
1668 |
Rating:
|
Antwort:
|
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. |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Unload Me löst QueryClose-Event aus |
14.09.2018 10:21:51 |
Volker.S |
|
|
|
14.09.2018 11:45:42 |
Gast70948 |
|
|
|
14.09.2018 12:21:40 |
Flotter Feger |
|
|
|
14.09.2018 12:42:47 |
Gast82172 |
|
|
|
14.09.2018 13:43:34 |
Flotter Feger |
|
|
|
14.09.2018 16:00:27 |
Gast24319 |
|
|
|
14.09.2018 16:53:16 |
Flotter Feger |
|
|
|
14.09.2018 20:50:11 |
Gast89088 |
|
|
|
21.09.2018 16:21:43 |
Volker.S |
|
|
|
21.09.2018 18:33:15 |
Gast39245 |
|
|