Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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)

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige