Fehlermeldung bei Speichern per VBA
24.10.2022 10:06:51
Samuel
ich hatte bereits im Juli einen Beitrag mit folgendem Problem geöffnet, das leider nur bedingt gelöst werden konnte, deshalb nochmals ein neuer Beitrag:
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 Jahresordner (Abhängig von Datum) speichert. Konkret gibt es dafür 2 Makros. Eines soll die Datei in einem bestimmten Ordner zwischenspeichern (nicht der Jahresordner), falls nochmal Änderungen vorgenommen werden müssen. Das zweite Makro speichert die Datei final als PDF in dem jeweiligen Jahresordner.
Die Grunddatei liegt auf einem Netzlaufwerk, sodass mehrere Benutzer die Datei (natürlich abwechselnd) nutzen können. In der Theorie (und teilweise auch in der Praxis - 2 von 3 Nutzer können arbeiten) funktioniert das ganze super. Jedoch habe ich an einem Endgerät das Problem, dass ich eine Fehlermeldung bekomme, die ich nicht ganz entziffern kann:
Bei dem Makro für das Zwischenspeichern:
Laufzeitfehler'1004:
Microsoft Excel kann auf die Datei [Hier steht der Pfad]\AD947000' 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.
Bei dem Makro für das Speichern als .PDF:
Laufzeitfehler '1004":
Das Dokument wurde nicht gespeichert. Das Dokument ist möglichweise geöffnet, oder beim Speichern ist ein Fehler aufgetreten.
Hier die Codes:
Zwischenspeichern:
Sub Datei_zwischenspeichern()
Dim Zwischenspeicher As String
Zwischenspeicher = Range("P18") & Range("P19")
If Application.WorksheetFunction.CountA(Range("C4,C5"))
Sub Datei_speichern()
Dim Dateiname As String
Dateiname = Range("P15") & Range("P16") & Range("P14")
If Application.WorksheetFunction.CountA(Range("C4,C5")) Liebe Grüße
Samuel