Datei unter anderem Namen und Ordner speichern und original schliessen/löschen

[Ole-x]

Hallo Zusammen.... bin Rookie.....
Ich habe folgendes Problem mit einem Excel Script. Es ist ein älteres Script und es steigt immer an der gleichen Stelle aus. Ich komme leider nicht weiter.

Kurz erklärt:

Ein Excel-Datei ( aus einem Verzeichnis "InBox") wird ausgelesen und die Daten in eine andere Excel Datei übernommen. Bis dahin klappt alles ganz gut.

Nun soll die geöffnete Datei in einem anderen Verzeichnis "Archiv" unter neuem Namen (automatisch generiert) abgespeichert und die geöffnete original datei geschlossen gelöscht werden.

Bei dem "Save as" Befehl steigt das Script aus.
Das Script ist in einer älteren Excel Version geschrieben worden.

Hier das Ende des Scripts, das nicht funktionieren will.....

......

fehlerEnde:
    Windows(wb$).Activate
    If errNr = 0 Then ActiveWindow.Close (True)
    Windows(wb_origin$).Activate
    Worksheets("Ubersicht").Select
    Range("A1").Select
    datenImportieren = "fehler"
    GoTo endeVonAllem

prozEnde:
    Windows(wb$).Activate
    ma$ = Right$("000" + ma$, 3)
    mo$ = Right$("000" + mo$, 2)
    kw$ = Right$("000" + kw$, 2)
    wb_neu$ = pf2Arc$ + ya$ + "\" + ma$ + "_" + mo$ + "_" + kw$ + ".xls"
    ActiveWorkbook.SaveAs FileName:=wb_neu$       /// hier steigt da skript aus !!!!!!!!
    ActiveWindow.Close (True)
    Windows(wb_origin$).Activate
    Worksheets("Ubersicht").Select
    Cells(Val(ma$) + 4, Val(kw$) + 1).Value = "X"
    Range("A1").Select
    
endeVonAllem:
    Windows(dtb$).Activate
    ActiveWorkbook.Save
    ActiveWindow.Close (True)
    Windows(wb_origin$).Activate
    Worksheets("Ubersicht").Select
    Cells(1, 1).Select
End Function


Vielen Dank für Eure Hilfe!!!!!!

Beste Grüße, Olaf

[Frogger1986]

Öffne mal den VBA editor Gehe unter Ansicht und Aktiviere das 'Lokalfenster" (das sich normal under dem code dann öffnet) und gehe alles einzeln durch! Einfach mit Maus unter den Anfang des VBA-Textes und dann F8 drücken! So kommst du Zeile für Zeile weiter! Achte dabei auf die daten im  Lokalfenster und schau dir unten an was passiert, wenn du zu diesem Bereich kommst

Code:

Windows(wb$).Activate
   ma$ = Right$("000" + ma$, 3)
   mo$ = Right$("000" + mo$, 2)
   kw$ = Right$("000" + kw$, 2)
   wb_neu$ = pf2Arc$ + ya$ + "\" + ma$ + "_" + mo$ + "_" + kw$ + ".xls"

was dann im lokalfenster hinter wb_ne$ angezeigt wird.. ob das passt! das müsste der Dateipfad und der name sein!