Fehlermeldung bei Zwischenspeichern VBA
25.07.2022 10:56:07
Samuel
ich komme mit einer - für euch - hoffentlich einfachen Problemstellung. Ich habe eine Datei erstellt, mit der wir unsere Gastroinventur eintragen und am Ende abspeichern können. Ziel ist es, dass sich der Dateiname anhand der eingetragenen Werte (Veranstaltungsname und Datum) in den entsprechenden Ordner (Abhängig von Datum) speichert. In der Theorie (und teilweise auch in der Praxis) funktioniert der ganze super. Jedoch habe ich an einem Endgerät das Problem, dass ich eine Fehlermeldung bekomme, die ich nicht ganz entziffern kann.
Die Datei liegt auf einem Netzlaufwerk, sodass mehrere Benutzer die Datei (natürlich abwechselnd) nutzen können.
Anbei die Fehlermeldung sowie mein Code:
Code:
Sub Dokument_speichern()
Dim Dateiname As String
Dateiname = Range("P15") & Range("P16") & Range("P14")
Sheets("Dokument").Range("A1", "M71").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Laufzeitfehler'1004:
Microsoft Excel kann auf die Datei [Hier steht der Pfad]\DODE5000' nicht
zugreifen, Dies kann mehrere Gründe haben:
Der Name des Dokuments oder der Pfad ist nicht vorhanden.
Das Dokument wird von einem anderen Programm verwendet
Der Name der Arbeitsmappe, die gespeichert werden soll, ist identisch zu dem Namen
eines anderen Dokuments, welches schreibgeschützt ist.
Vielen Dank schon mal für die Hilfe
Liebe Grüße
Samuel