Halli Hallo,
ich hoffe mir kann einer weiterhelfen.
Ich habe eine Datei, die ich automatisch speichern möchte mit folgendem Code:
Public Sub DateiAutomatischSpeichern()
Dim pfad As Variant
Dim name As Variant
Set wkb = ThisWorkbook
pfad = ThisWorkbook.Path
pfad = pfad & "\"
name = ThisWorkbook.name
'das neue Workbook wird im aktuellen Verzeichnis gespeichert
name = pfad & name
Application.DisplayAlerts = False
wkb.SaveAs Filename:=name, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Bis gerstern hat die Speicherung super funktioniert - wird schon 1 Jahr benutzt.
Seit heute nun wird die Fehlermeldung Laufzeitfehler 1004 herausgegeben u. es erfolgt keine
Speicherung mehr.
Also der Verweis stimmt die Variable name hat den korrekten Pfad u. den korrekten Namen der Datei.
Ich hoffe, irgendjemand hat eine Idee.
|