Worksheets bei Bedarf nachladen
06.02.2005 14:59:53
C. Kummetat
Beim Öffnen einer Tabelle sollen, soweit sich zwei Referenztabellen noch nicht im Speicher befinden, diese Tabellen nachgeladen werden. Nachfolgender Code ist in einem auto_open-Makro untergebracht.
Leider bekomme den Laufzeitfehler 9 (Index außerhalb des gültigen Bereiches) bei der Anweisung "SheetName2 = Workbooks(FileName2).Name", soweit beide Dateien noch nicht um Speicher ist. Wenn sich die erste Datei schon im Speicher befindet, tritt der Fehler nicht auf.
Weiß jemand, warum dieser Fehler auftritt bzw. wie man ihn umgehen kann ?
Christoph
-----------------------------------------------------------------
On Error Resume Next
Dim FileName1 As String, FileName2 As String
Dim Pfad As String, SheetName1 As String, SheetName2 As String
FileName1 = "2004 Auftragsübersicht.xls" 'Zu ladende Datei 1
FileName2 = "2005 Auftragsübersicht.xls" 'Zu ladende Datei 2
Pfad = "G:\Daten\Office\" 'Pfad für Dateien 1 und 2
LoadJahr1:
On Error GoTo NonJahr1 'Datei noch nicht geladen
SheetName1 = Workbooks(FileName1).Name
GoTo LoadJahr2
NonJahr1:
Workbooks.Open FileName:=Pfad & FileName1, UpdateLinks:=3
LoadJahr2:
On Error GoTo NonJahr2 'Datei noch nicht geladen
SheetName2 = Workbooks(FileName2).Name
GoTo AktiviereSheet
NonJahr2:
Workbooks.Open FileName:=Pfad & FileName2, UpdateLinks:=3
AktiviereSheet:
Windows(FileName1).Activate