Datei beenden - neue starten
07.05.2006 15:30:47
Thomas
ich öffne per Makro eine neue Datei, dabei wird die aktive Tabelle ohne zu speichern geschlossen.
Private Sub Button407_Click()
Workbooks.Open ThisWorkbook.Path & "\" & "Fun.xls"
Unload Me
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
Wenn ich die neue Tabelle beende soll sie geschlossen werden, ohne speichern, und die erste wieder geöffnet werden.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
Workbooks.Open ThisWorkbook.Path & "\" & "VMG.xls"
End Sub
Es wird die VMG.xls geöffnet, aber die Fun.xls nicht beendet. Die Fun.xls wird über Datei beenden geschlossen.
Wie muß ich das verändern damit die Fun.xls auch wirklich geschlossen wird? Beim öffnen der VMG.xls wird sofort eine Userform gestartet. Verhindert diese das schließen der Fun.xls?
MfG Thomas
Anzeige