Ich habe folgendes Problem. Ich möchte per Makro Aufruf, mit Angabe von Dateinamen und Pfad eine Datei abspeichern. Excel speichert mir aber jedesmal diese Datei in "Eigene Dateien" anstatt im vorgegebenen Pfad. Was mache ich falsch? Dringend!
Die Arbeitsdatei befindet sich auf Netzwerk-Laufwerk J:\ und enthält einen Befehsschaltfläche mit folgendem Makro.
Sub Archivieren()
Dim FName As String
FName = InputBox("Dateinamen eingeben:", _
"Rechnung Dienstmodul", "Rechnung XXXX.xls")
If Len(Trim(FName)) = 0 Then
Exit Sub
End If
ChDir "J:\WSD-Modul\Archiv\Rechnungswesen"
ActiveWorkbook.SaveAs Filename:=FName, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Close
End Sub
Für eine schnelle Lösung wäre ich sehr dankbar!
Gruß Armin