Arbeitsmappe öffnen andere Arbeitsmappe schließen
19.04.2003 17:44:45
Guido
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
Anzeige