Hallo, schönen Sonntag und mit der Bitte um Unterstützung:
ich möchte die aktuelle Datei in ein Verzeichnis speichern.
Leider krieg ich das nicht hin, bitte um Unterstützung:
Dim Verzeichnis As String
Dim OrdNam As String
Dim DateiNam As String
DateiNam = ActiveWorkbook.Name
OrdNam = "C:\1_Lager"
If Dir(OrdNam, 16) &lt&gt "" Then
MsgBox "Ordner: '" & OrdNam & "' ist vorhanden !" & Chr(13) _
& Chr(13) & " Datei: " & " " & DateiNam & " wird jetzt gespeichert!" _
, vbInformation, " Hinweis !"
ActiveWorkbook.SaveAs Filename:= _
"OrdName"&OrdNam&"\&DateiNam&", FileFormat:=xlNormal, _ &lt&lt&lt&lt&lt&lt&lt&lt&lt&lt&lt&lt&lt
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
herzlichen im voraus,
gruß Walter