Ich habe eine Excel Vorlage mit Makros, welche per speichern unter gespeichert wird.
Wenn man die gespeicherte Datei öffnet, etwas darin verändere und die speichern will, bekomme ich logischer Weise eine Fehlermeldung.
Wie kann ich den Code verändern, sodass ich auch dort speichern kann.
Der Dateiname soll erhalten bleiben.
Hier mal der Code.
Private Sub Ölblattspeichern_Click()
Dim a As String
a = Range("Tabelle2!C3").Value
b = Range("Tabelle2!C28").Value
Application.DisplayAlerts = False
ChDir "X:\Groups\EASZ-FR17\Oelblätter"
ActiveWorkbook.SaveAs Filename:= _
"X:\Groups\EASZ-FR17\Oelblätter\" + a + "_" + b, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Die Datei wurde erfolgreich auf dem Laufwerk gespeichert", 2, "Info"
Set objShell = Nothing
Application.Quit
End Sub