Userformen gegenseitig aufrufen
23.10.2008 14:09:30
Timo
in einer Tabelle lasse ich bei einigen Tabellen per Activate-Ereignis eine Userform als Menüauswahl anzeigen. (immer die gleiche Userform) Beim Deactivate-Ereignis blende ich sie wieder aus.
Bei mehreren Schaltflächen auf der Userform wird jeweils eine andere Userform geladen, und die Menüform ausgeblendet.
Ich möchte nun von den aufgerufenen Userformen wieder zurück zum Menüform, also die aktuelle Userform ausblenden und die Menüform wieder einblenden. Dies funktioniert nur teilweise:
Die jeweilige Userform wird ausgeblendet und entladen, aber die Menüform wird nur für sekundenbruchteile sichtbar.
Hier der Code:
in den Tabellenblättern:
Private Sub Worksheet_Activate()
frmMenue.Show
End Sub
Private Sub Worksheet_Deactivate()
frmMenue.Hide
Unload frmMenue
End Sub
in der Menü-Userform:
Private Sub btnDimensions_erfassen_Click()
frmMenue.Hide
Unload frmMenue
frmDimensions_Werte.Show
End Sub
in der Dimensions-Userform:
Private Sub btnCancel_Click()
frmDimensions_Werte.Hide
frmMenue.Show
Unload frmDimensions_Werte
End Sub
Ach ja, die Menüform ist amodal und die "unter-"Userformen werden modal angezeigt.
Schon mal vielen Dank und Gruß
Timo