Problem mit mehrmaligem Öffnen eines Makro's
30.12.2018 16:31:00
Nick
Hallo VBAler,
ich habe folgendes Problem mit Userform's. Vielleicht habt ihr ja eine Lösung, wie das Problem behoben werden kann.
Funktion:
Ich verwende eine Userform "MAKRO_A" (Hauptfenster) mit CommandButtons. Wird auf CommandButtons 'cmdStartMakro1_Click()' geklickt, öffnet sich "Makro_1". Hauptfenster wird nicht mehr angezeigt.
In "Makro_1" kann über einen CommandButton "Zurück" das Makro_1 schließen und MAKRO_A wird wieder angezeigt.
Soweit zur Funktion.
Hinweis:
Beide Makro's befinden sich ordnungshalber in unterschliedlichen Pfaden
Problem:
Nun zu meinen Problem: Wenn ich das Hauptfenster MAKRO_A öffne und dann auf den Button Makro_1 klicke öffnet sich Makro_1 und MAKRO_A wird nicht mehr angezeigt. Klicke ich auf zurück-Button von Makro_1, schließt dieser und Makro_A wird wieder angezeigt.
Drück ich erneut aud Button Makro_1 starten, wird Hautpfenster Makro_A ausgeblendet und Makro_1 wird NICHT angezeigt.
Muss Quasi immer das Programm neu starten.
Der Quellcode zu diesen Fall ist unten zu sehen.
Habt ihr eine Idee was ich da richtig machen muss?
vielen Dank im Voraus
Nick
Quellcode:
"MAKRO_A"
Private Sub cmdBeenden_Click()
Unload Me
End Sub
Private Sub cmdStartMakro1_Click()
'schließt Hauptfenster
frmHauptfenster.Hide
Application.Visible = False
'Auswahl öffnet "Makro_1.xlsm"
Dim Filename As String
Filename = "C:\Temp\Makro_1\Makro_1.xlsm"
Workbooks.Open Filename:=Filename
Application.Visible = True
End Sub
"MAKRO_1"
Private Sub cmdZurück_Click()
Unload Me
'schließt Steuerelement
frmMakro_1.Hide
Application.Visible = False
'öffnet Hauptfenster
Dim Filename As String
Filename = "C:\Temp\Makro_A\Makro_A.xlsm"
Workbooks.Open Filename:=Filename
Application.Visible = False
'schließt und speichert Datei
Workbooks("Makro_1.xlsm").Close SaveChanges:=True
End Sub