Error 1004
18.10.2021 21:13:22
Fazel
Sub spr
Dim Pfad, Datei, Filter, fileSaveName
Pfad = "C:\Fazel\"
Datei = ActiveSheet.Range("F5") & "_" & ActiveSheet.Range("F6")
Filter = "Excel Workbook (*.xlsx),*.xlsx"
fileSaveName = Application.GetSaveAsFilename(Pfad & Datei, Filter)
If fileSaveName False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName ' Fehlermeldung error 1004
End If
If Filename = False Then
Application.EnableEvents = True
Exit Sub
End If
End Sub
https://www.herber.de/bbs/user/148683.jpg