Hallo Zusammen,
Ich habe ein Problem, als die die Dateien erstellt habe habe ich das ganze auf meinem Desktop gehabt und hat einwandfrei funktioniert.
Jetzt habe ich das ganze auf unseren Firmenserver gezogen. Nun öffnet bzw. findet der die Dateien nicht mehr.
Dateipad ist: \\Svrulfs\Abteilung_CS\CS Tasche\Aufträge Excel\
Beispielscript Speichern:
Sub Speichern()
im Auftragsnum As String
Dim Pfand As String
Dim Pfand2 As String
Auftragsnum = Range("A2").Value
Pfand = "\\Svrulfs\Abteilung_CS\CS Tasche\Aufträge Excel\"
Pfrand2 = ".xlsm"
ActiveWorkbook.SaveAs Filename:=Pfad & Auftragsnum & Pfand2 _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Danke für eure Hilfe.
VG
Jakob
|