Clever-Excel-Forum

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?

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

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.

StrammerMax

Lutz Fricke

StrammerMax