Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

UserForm mit X beenden und weiter machen

UserForm mit X beenden und weiter machen
05.07.2020 19:58:44
Sabbel
Hallo,
ich rufe das Userform so auf .. und möchte dass dann die Mehtode weiter läuft

Sub Userform aufrufen()
‚ Methode durchführen
Userform1.show
‚Methode weiterführen
End sub

Wenn man einen Button klickt wird der Userform beendet und die obere Methode weiter geführt.
Private Sub CommandButton2_Click()
Unload Me
End Sub

Das funktioniert bestens
Nun möchte ich wenn man das X klickt die Userform geschlossen wird
Das habe ich so gemacht
Public Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

Aber bei Unload Me (beim Klicken von CommandButton2 wird dann auch die oberste Methode durch das End beendet. Was kann ich machen das beim Klicken des X die allererste Methode in der die Userform aufgerufen wird weiterlauft und nicht beendet wird.
Gruß
Sabbel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm mit X beenden und weiter machen
05.07.2020 20:09:00
Hajo_Zi
Hallo Sabel,
für das X brauchst Du keinen Code

AW: UserForm mit X beenden und weiter machen
05.07.2020 20:14:45
Sabbel
Wenn ich X ohne einen Code Klicke wird die zuerst gestartete Methode weiter geführt.
Die soll aber abgebrochen werden.
AW: UserForm mit X beenden und weiter machen
05.07.2020 20:16:35
Hajo_Zi
ich baue keine Datei nach.
Ich hätte
Private Sub UserForm_Terminate()
benutzt.
Gruß Hajo
Hier eine Testmappe
05.07.2020 20:42:51
Sabbel
Hallo
Ich habe mal eine Test Mappe erstellt.
Wenn man X klickt soll dennoch "Test" in Zelle C4 geschrieben werden da nur die Userform geschlossen werden soll aber die Methode weiterlaufen.
Wenn ich das einfüge
Public Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Marko wird ausgeführt
End
End Sub

Wird nie Test in die Zelle D4 geschrieben
Anzeige
AW: Ups .. hier die Mappe
06.07.2020 07:07:56
Luschi
Hallo Sabbel,
hier mal die Vba-Online-Hebe bemüht:

End
Beendet die Ausführung sofort. Wird nie für sich selbst benötigt, kann jedoch
an einer beliebigen Stelle in einer Prozedur eingefügt werden, um die
Codeausführung zu beenden, Dateien, die mit der Open -Anweisung geöffnet wurden,
zu schließen und Variablenzu löschen.
Gruß von Luschi
aus klein-Paris

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige