AW: Verknüpfte Dateien automatisch öffnen
31.07.2007 19:44:28
Oberschlumpf
Hi Bernd
Schreib das hier ins Open-Ereignis deiner "Start"-Datei:
Dim lbMsg As Byte
Application.EnableEvents = False 'Ereigniskontrolle abschalten, wenn gewünscht - wenn nicht, _
diese Zeile löschen
lbMsg = MsgBox("Soll die Datei dateiname1.xls geöffnet werden?", vbQuestion + vbYesNo, " _
Frage")
If lbMsg = vbYes Then Workbooks.Open "DeinPfad\dateiname1.xls"
lbMsg = MsgBox("Soll die Datei dateiname2.xls geöffnet werden?", vbQuestion + vbYesNo, " _
Frage")
If lbMsg = vbYes Then Workbooks.Open "DeinPfad\dateiname2.xls"
lbMsg = MsgBox("Soll die Datei dateiname3.xls geöffnet werden?", vbQuestion + vbYesNo, " _
Frage")
If lbMsg = vbYes Then Workbooks.Open "DeinPfad\dateiname3.xls"
Application.EnableEvents = True 'Ereigniskontrolle wieder einschalten
Hilft das?
Ciao
Thorsten