Registriert seit: 28.03.2020
Version(en): 2013
Hallo,
ich bin neu hier :43:
Hier ist meine Frage:
Ich habe eine Auswahlmaske (in Form eine Userforms) und verzweige in eine andere Excel-Datei und öffne hier ein Userform.
Soweit alles okay.
Wenn ich dann aber Userform der Datei 2 schließe, schließt sich auch Userform der Datei 1.
Der Wunsch wäre, dass ich hier zur Auswahlmaske zurückkehre.
kann mir bitte jemand einen Tipp geben ?
vielen lieben Dank
Gittli
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Gittli,
füge mal in Zeile 14 die Anweisung
Me.Show
ein.
Gruß Uwe
Registriert seit: 28.03.2020
Version(en): 2013
28.03.2020, 20:40
(Dieser Beitrag wurde zuletzt bearbeitet: 28.03.2020, 20:41 von Gittli.)
Danke Uwe, für die schnelle Antwort.
nur ... wo soll ich das eintragen ?
in Datei 1 verzweige ich in Datei 2
Workbooks.Open Filename:="......\Adressen.xlsm"
Application.Run "'...... \Adressen.xlsm'!Adressen_anzeigen"
wenn ich aus Datei 2 über meinen "Exit-Button" zurück in Datei 1 möchte
ThisWorkbook.Save
ThisWorkbook.Close
wird alles geschlossen
gehe ich über das "X" bleibt die Adress-Datei (Datei 2 ) leider offen.
Danke schon mal ...
Gittli
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo,
vielleicht anstelle
mal mit
Code:
ActiveWorkbook.Close
versuchen.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 28.03.2020
Version(en): 2013
28.03.2020, 20:47
(Dieser Beitrag wurde zuletzt bearbeitet: 28.03.2020, 20:47 von Gittli.)
Danke Stefan,
klappt leider auch nicht.... macht alles zu
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Gittli,
ich konnte das Problem nachvollziehen.
Das wäre mein Vorschlag:
' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
Application.Run "'F:\Uwe\Documents\Excel\Foren\CEF\Test\Adressen.xlsm'!Adressen_anzeigen"
Workbooks("Adressen.xlsm").Close True
End Sub
' **************************************************************
' Modul: UserForm2 Typ = Userform
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
If Me.Tag = "" Then
ThisWorkbook.Save
ThisWorkbook.Close
End If
Unload Me
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Sub Adressen_anzeigen()
UserForm2.Tag = "x"
UserForm2.Show
End Sub
Gruß Uwe
Registriert seit: 28.03.2020
Version(en): 2013
Vielen lieben Dank für eure Hilfe und Mühe :23: :23:
Über das "X" funktionierts prima :19: :19:
viele Grüße
Gittli
