Mehrere Dateien mit Sicherungsabfrage
11.12.2003 18:47:04
Stefan Glander
mit folgendem Code werden die Dateien "A","B" und "C" geöffnet.
Wie muss der Code lauten wenn ich Datei "A" beende das sich "B" und "C" ebenfall schliessen? ( Mit Abfrage ob die Daten gesichert werden sollen)
Private Sub Workbook_Open()
Dim wbkA As Workbook, wbkB As Workbook, wbkC As Workbook
Set wbkA = ThisWorkbook
Set wbkB = Workbooks.Open("c:\B.xls")
Set wbkC = Workbooks.Open("c:\C.xls")
wbkA.Sheets(1).Activate
End Sub
Viele Grüsse
Stefan Glander