Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Arbeitsmappe öffnen andere Arbeitsmappe schließen

Betrifft: Arbeitsmappe öffnen andere Arbeitsmappe schließen
von: Guido
Geschrieben am: 19.04.2003 - 17:44:45

Hallo
Ich möchte gern folgendes mit einem VBA Code auslösen
1. Arbeitsmappe „Mappe1“ wird mit Maus gestartet
2. Userform1.show (Mappe1)
3. nach klick von Userform1 (Mappe1) soll Arbeitsmappe „Mappe2“ gestartet werden
4. Userform1.Show (Mappe2)
5. nach klick von Userform1 (Mappe2) soll Arbeitsmappe „Mappe1“ geschlossen werden
6. Userform1 (Mappe2) bleibt aktiv
Bei meinem Code funktioniert bis auf Punkt 6 alles. Wie bekomme ich es hin das nach schließen von Mappe1 die Userform1von Mappe2 aktiv bleibt?

in Diese Arbeitsmappe (Mappe1) steht

Private Sub Workbook_Open()
UserForm1.Show
End Sub

in Userform1 (Mappe1) steht

Private Sub UserForm_Click()
Dim b
b = ThisWorkbook.Path & "\Mappe2.xls"
Workbooks.Open b
End Sub

in Diese Arbeitsmappe (Mappe2) steht

Private Sub Workbook_Open()
UserForm1.Show
End Sub

in Userform1 (Mappe2) steht

Private Sub UserForm_Click()
Workbooks("Mappe1.xls").Close (False)
End Sub

Danke im voraus
Guido

  

Re: Arbeitsmappe öffnen andere Arbeitsmappe schließen
von: andre
Geschrieben am: 20.04.2003 - 08:23:19

hallo guido,

variante1:
beide userform auf showmodal=true setzen

variante2:
im ersten userform nach
dim b
hide
gruss andre

 

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsmappe öffnen andere Arbeitsmappe schließen"