Microsoft Excel

Herbers Excel/VBA-Archiv

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

Mappe öffnen andere Mappe schließen

Betrifft: Mappe öffnen andere Mappe schließen
von: Guido
Geschrieben am: 15.04.2003 - 18:54:09

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()
ActiveWorkbook("Mappe1.xls").Close (False)
End Sub

Danke im voraus
Guido

  

Re: Mappe öffnen andere Mappe schließen
von: Guido
Geschrieben am: 15.04.2003 - 18:58:57

Ich sehe gerade das ich mich verschrieben habe! In Userform1 (Mappe2) steht
Private Sub UserForm_Click()
Workbooks("Mappe1.xls").Close (False)
End Sub

Gruß Guido

 

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