Neue Datei im selben Ordner abspeichern
29.12.2021 19:15:47
HeinzH
Habe eine Makro das mir eine neue Datei erzeugt, und die neue Datei unter einen Namen von einer Zelle abspeichert.
Nur das Problem ist es sollte im selben Ordner gespeichert werden, wo die alte Datei geöffnet wurde.
Mit meinem Code wird es im Ordner "Dokumente" gespeichert.
Könnte mir bitte jemand helfen ?
Danke
SG, Heinz
Option Explicit
Sub Jahr_anpassen()
Application.ScreenUpdating = False
Dim Inp_Jahr As Integer
Dim Jahr As String
ActiveWorkbook.SaveAs Filename:="Gesperrte Ware " & Sheets("Schichtplan AF").Range("M2") & Jahr & ".xlsm"
Application.ScreenUpdating = True
End Sub