Laufzeitfehler 9 "Index außerhalb Bereich"

[StrammerMax]

Hallo zusammen, 

ich habe folgenden Codeschnipsel: 

Code:

    Dim k As Variant   
    Dim strFileName As String
    Dim strPath As String

    Set dictCodes = CreateObject("scripting.dictionary")
    dictCodes("S1") = "FR"         


           'Arbeitsmappe speichern als Kopie
            strFileName = "CC_Data_" & dictCodes(k) & ".xlsm"
           
            ActiveWorkbook.SaveCopyAs Filename:=strPath & strFileName
            Workbooks.Open strPath & strFileName
            Workbooks(strFileName).Activate
                             

In der letzten Zeile (beim Aufrufen der Datei) läuft er in einen Laufzeitfehler 9 "Index außerhalb des Bereichs" und wirft einen Fehler. 

Erkennt jemand daran, wo der Fehler liegen könnte?

[Lutz Fricke]

Hallo Max,

wie ist den strPath belegt?
Ich würde vermuten, dass da bei ActiveWorkbook.SaveCopyAs Filename:=strPath & strFileName ein \ zwischen Pfad und Name fehlt und du unter falschem Namen speicherst und öffnest. Anschließend ist natürlich die gewünschte Datei nicht offen.

Findest Du im Explorer nach dem Speichern die geünschte Datei?

Evtl. postest Du mal den gesamten Code. Sonst wird's Raterei...

Gruß,
Lutz

[StrammerMax]

Hey, danke. 

Schau mal bitte hier: https://www.clever-excel-forum.de/thread-31542.html

Ich habe es jetzt so weit bekommen, dass er die Datei erzeugt und auch öffnet. 

Aber der nächste Befehl ist, dass er ein bestimmtes Blatt öffnen soll. Dabei steigt er aus, obwohl das Blatt existiert, richtig geschrieben ist und keine Leerzeichen oder so hat.