Dateinamen aus Zelle
09.12.2015 13:06:01
Basti
ich möchte eigentlich nur eine kleine Sache verzweifele aber grade.
Aus einer Excel Vorlage mit Makros möchte ich den Dateinamen der neu erstellten Datei vorgeben. Dieser wird in der Datei im Feld "AI8" erzeugt. Die Datei soll im Netzwerk in einem bestimmten Ordner abgespeichert werden.
Speicherort:
("\\1_dateiserver\Abteilungs-Ordner\Qualitaetswesen\011_Fertigung-LEMKEN\Mangelberichte_2015_intern") abgelegt werden")
Mein aktueller Stand meiner Bemühungen ist: (aber funktionieren will es nicht nicht)
Sub ArbeitsmappeSpeichern()
Dim strName As String
Const LW = "\\1_dateiserver\"
Const Pfad = "\\1_dateiserver\Abteilungs-Ordner\Qualitaetswesen\011_Fertigung-LEMKEN\ _
Mangelberichte_2015_intern"
strName = Range("AI8")
ChDrive LW
ChDir Prad
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Danke