Dateierweiterung
07.04.2015 10:43:37
Rolf
das folgende Makro funktioniert auf meinem Laptop und lief vor drei Tagen auch noch auf meinem PC (Turm):
Sub Z_File_Laden()
na = "SpBW400"
pf = ActiveWorkbook.Path & "\" & na
Workbooks.Open Filename:=pf
Workbooks("Berlin").Activate
Workbooks(na).Close SaveChanges:=True
End Sub
Jetzt kommt (nur auf PC) die Fehlermeldung "Index außerhalb des gültigen Bereichs"
Zwei Tage habe ich gebraucht zur nötigen Korrektur, damit alles wieder läuft:
Sub Z_File_Laden()
na = "SpBW400.xlsm"
pf = ActiveWorkbook.Path & "\" & na
Workbooks.Open Filename:=pf
Workbooks("Berlin.xlsm").Activate
Workbooks(na).Close SaveChanges:=True
End Sub
Auf dem Laptop - ebenfalls Win7 und Excel 2010 - klappt es ohne Erweiterung?
Für eine Erklärung, die mich schlauer macht, schon mal herzlichen Dank.
Gruß Rolf
Anzeige