Herbers Excel-Forum - das Archiv

Neues Prob: 2 Userforms an gleicher Bildschirmpos.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton ⇒ UserForm
Bild

Betrifft: Neues Prob: 2 Userforms an gleicher Bildschirmpos.
von: Dennis
Geschrieben am: 09.10.2003 11:26:19
Hallo nochmal!
Diesmal brauche ich wirklich eure Hilfe,
ich habe 2 Userforms mit Buttons (Navigation) Der letzte Button der ersten Userform ruft die 2. Userform auf, für das erweiterte Navigationsmenü. Jetzt Das Userform erscheint standardgemäß immer manuell (Beim Öffnen des Workbooks) also oben links in der Ecke. Wenn ich das erste Form verschieben und dann meinen Button drücke um die 2. Form aufzurufen, erscheint diese natürlich wieder oben links in der Ecke. Die 1. Form wird nur ausgeblendet:



Private Sub CommandButton5_Click()
UserForm1.Hide
UserForm2.Show
CommandButton5.Enabled = True
End Sub


Jetzt möchte ich aber, dass beide Userforms immer die gleiche Position haben, man aber trotzdem das eine gerade aktive Form verschieben kann wie man möchte. Beim klick auf "zurück" wird die Form dann ausgeblendet und die 1. Form erscheint dann an der letzten Position des 2. Forms.

Ich hoffe ihr habt das verstanden.

Hoffe ihr könnt mir helfen. Schöne Grüße

Dennis
Bild

Betrifft: AW: Neues Prob: 2 Userforms an gleicher Bildschirmpos.
von: K.Rola
Geschrieben am: 09.10.2003 11:36:27
Hallo,

schreib im 2. Userform:


Private Sub CommandButtonX_Click()
UserForm2.Hide
UserForm1.left = me.left
UserForm1.top = me.top
UserForm1.Show
CommandButtonX.Enabled = True
End Sub


Gruß K.Rola
Bild

Betrifft: AW: Neues Prob: 2 Userforms an gleicher Bildschirmpos.
von: Dennis
Geschrieben am: 09.10.2003 11:49:36
Hi K.Rola!
Hat alles wunderbar geklappt, vielen Dank!
Ist übrigens eine sehr elegante Lösung, denn so kann ich noch mehr Menüs anlegen.
Schönen Tag noch
Gruß
Dennis
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Neues Prob: 2 Userforms an gleicher Bildschirmpos."
Module und UserForms austauschen CheckBoxes in UserForms in eine Schleife einbinden
Zwischen zwei UserForms wechseln, wobei sich die 1. Aktualisiert Programmsteuerung für mehrere aufrufende UserForms
Module und UserForms einer zu öffnenden Arbeitsmappe exportieren Summieren von Werten mit gleicher Schriftfarbe