AW: Beispielmappe funktioniert tadellos
13.02.2008 09:50:51
Marek
Hallo Matthias,
komisch, heute funktioniert meine Beispieldatei auch. (?)
In meiner "echten" Datei habe ich es auch wieder so eingestellt (siehe Code unten), da funktioniert es jetzt ebenfalls. Mit einer Einschränkung: Beim zweiten Aufruf der UserForm2 erscheint zunächst wieder UserForm1, der CommandButton muss ein zweites Mal gedrückt werden, dann erscheint die UserForm2.
Und noch etwas: Wenn ich die UserForm1 über einen anderen CommandButton schließen will, muss ich diesen auch zweimal drücken.
'UserForm1 =Name: UsrEWB ShowModal = True
'Wechseln zu UserForm2
Private Sub cmdEWB_Bearbeiten_Click()
Unload UsrEWB
Application.Visible = True
Sheets("EWB aktuell").Select
Load UsrEWB_Bearbeiten
UsrEWB_Bearbeiten.Show
End Sub
'UserForm2 = Name: UsrEWB_Bearbeiten ShowModal = False
'zurück zu UserForm1
Private Sub cmdZurueck_Click()
Unload UsrEWB_Bearbeiten
Application.Visible = False
Load UsrEWB
UsrEWB.Show
End Sub
'UserForm1 schließen
Private Sub cmdSchließen_Click()
'Startformular schließen
Unload UsrEWB
End Sub
Wäre schon interessant, warum das nicht funktioniert.
Ich habe es jetzt so gelöst:
'Von UserForm1 zu UserForm2 wechseln
Private Sub cmdEWB_Bearbeiten_Click()
UsrEWB.Hide
Application.Visible = True
Sheets("EWB aktuell").Select
UsrEWB_Bearbeiten.Show
End Sub
'Von UserForm2 zurück zu UserForm1 wechseln
Private Sub cmdZurueck_Click()
UsrEWB_Bearbeiten.Hide
Application.Visible = False
UsrEWB.Show
End Sub
Wenn man Freude daran hat, kann man nun den ganzen Tag hin und her klicken :-).
Da taucht auch schon das nächste Problemchen auf. UserForm2 kann man natürlich auch über das Kreuz oben rechts im Formular beenden. Dann soll UserForm1 wieder erscheinen. Das geht mit
Private Sub UserForm_Terminate()
Application.Visible = False
UsrEWB.Show
End Sub
UserForm1 erscheint wieder. Wenn ich nach dem Abbruch der UserForm2 diese erneut von UserForm1 aufrufen will (Code siehe oben), ist das Programm beendet.
Hat jemand von euch eine Idee?
Gruß
Marek