Laufzeitfehler bei End Sub (SaveAs)
02.02.2022 15:05:46
Lukas
ich habe ein winziges Makro mit dem ich die Datei speichern will, wobei der Dateiname aus einer Zelle bezogen wird.
Eigentlich easy:
Sub SpeichernUnter()
Range("O2").Calculate
Dim NeuerName As String, Speicherpfad As String
Speicherpfad = "D:\xxx\xxx\temp\"
NeuerName = Range("O2")
ActiveWorkbook.SaveAs Filename:=Speicherpfad & NeuerName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
Es funktioniert auch wunderbar, nur dass am Ende ein Laufzeitfehler 1004 bei "End Sub" kommt (gespeichert wird aber!).Wie bekomme ich den bitte weg?
Vorab: AccessMode := ... hat nichts gebracht.
Danke.
Liebe Grüße
Lukas