Userform X Close

Forumthread: Userform X Close

Userform X Close

16.01.2018 10:55:18

Manuela

Hallo zusammen,
ich komm nicht auf die Lösung.
Ich Rufe über den CommandButton1_Click (Code in der Tabelle) eine Prozedur ab die wie folgt aussieht:

Private Sub CommandButton1_Click() Dim objNetworkAsObject 'Zum Laufwerk Mappen On Error GoTo LaufwerkEntfernen 'Laufwerk Mappen Set objNetwork = CreateObject("Wscript.Network") objNetwork.MapNetworkDrive "S:", "\\10.26.21.162\C$", False, "User", "Password" '#Starte Prozeduren Call Import_Data_Loeschen UserForm1.Show Sheets("Analyse_Alle").Select Call WithPB Sheets("Report").Select LaufwerkEntfernen: 'Laufwerk Entfernen objNetwork.RemoveNetworkDrive "S:", True, True End Sub

Jetzt möchte ich das wenn ich in der Userform das X (UserForm_QueryClose) angeklickt wird, die Prozedur zum "LaufwerkEntfernen" springt und somit mit Sub end beendet.
Danke schon mal im voraus.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform X Close

16.01.2018 11:03:22

onur
AW: Userform X Close

16.01.2018 11:04:57

Dieter(Drummer)
AW: Userform X Close

16.01.2018 11:06:56

Burak
AW: Userform X Close

16.01.2018 11:19:58

Manuela
AW: Userform X Close

16.01.2018 11:35:53

Dieter(Drummer)

AW: Userform X Close

16.01.2018 11:03:22

onur

Dann musst du
objNetwork.RemoveNetworkDrive "S:", True, True
in eine sub schreiben und
im Close-Event der UF diese Sub aufrufen.

AW: Userform X Close

16.01.2018 11:04:57

Dieter(Drummer)

Hallo Manuela,
versuch mal diesen Code in deine Userform1:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
call LaufwerkEntfernen
End Sub

Gruß, Dieter(Drummer)

AW: Userform X Close

16.01.2018 11:06:56

Burak

Dafür muss es eigenen Sub dazu geben, also würde ich mal sagen:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
call LaufwerkEntfernen
End Sub

Private Sub LaufwerkEntfernen ()
objNetwork.RemoveNetworkDrive "S:", True, True
Exit Sub
End Sub

AW: Userform X Close

16.01.2018 11:19:58

Manuela

Falls ich das richtig gemacht habe, springt mir der dennoch weiter auf "Call WithPB".
Kann ich nicht irgendwie dazwischen "If UserForm_QueryClose Then GoTo ExitSub" einfügen

AW: Userform X Close

16.01.2018 11:35:53

Dieter(Drummer)

Hallo Manuela,
dann evtl. so:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
objNetwork.RemoveNetworkDrive "S:", True, True
Exit Sub
End Sub

Gruß, Dieter(Drummer)

Beliebteste Forumthreads (12 Monate)

Forumthread: Userform X Close

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread