Zunächst der Code von dem zu schließenden Workbook
Dim antwort As String
antwort = MsgBox("Möchten Sie die Änderungen speichern ?", vbYesNo, "Datenpool schließen...")
If antwort = vbYes Then
ActiveWorkbook.Save
Workbooks("Ranking-Entwicklung.xls").Activate
Workbooks("Bilanzkennziffern_Datenpool_2001 komplett.xls").Close
Else
Workbooks("Ranking-Entwicklung.xls").Activate
Workbooks("Bilanzkennziffern_Datenpool_2001 komplett.xls").Close
End If
End Sub
Da muss jetzt irgendwie der Aufruf der UserForm "Start" (eine Art
Menü) des noch offenen anderen Workbooks erfolgen.
Mir sagt er da dauernd, dass er diese nicht nochmal aufrufen kann...
Ich habs versucht mit workbook.activate nur da das mehrmals
in einem anderen Zusammenhang gebraucht wird, geht das nicht...
Ideen ?
Merci
Patrick