Vor ein paar Wochen habe ich meine ersten VBA-Schritte getan und kämpfe seitdem mit dem einen oder anderen Problem. Mein aktuelles Problem ist das folgende: Das Programm soll eine Datei spechern, anschließend unter neuem Namen speichern und ein paar Sachen eintragen. Leider bricht das Programm immer wieder an der fett markierten Stelle im Code ab (Laufzeitfehler 1004). Drücke ich im Debugger auf fortfahren, läuft es problemlos bis zum Ende durch. Woran könnte das liegen.
Vielen Dank im Voraus,
Hendrik
Dim v_New_Filename As String
Dim v_Old_Filename As String
Dim v_Directory As String
v_Old_Filename = ActiveWorkbook.Name
v_New_Filename = "schedule_and_staffing_next_week.xls"
v_old_directory = ActiveWorkbook.Path
ActiveWorkbook.Save
ChDir v_old_directory
ActiveWorkbook.SaveAs Filename:=v_New_Filename
CalendarWeek = ActiveWorkbook.Sheets("navigation").Range("E10") + 1
ActiveWorkbook.Sheets("navigation").Range("E10").Value = CalendarWeek
ActiveWorkbook.Sheets("Schedule_filling").Cells(3, 6).Value = CalendarWeek
ActiveWorkbook.Sheets("Production_schedule_list").Cells(2, 2).Value = CalendarWeek
Application.ScreenUpdating = False
Call UnprotectAllSheets