Hallo zusammen,
Code lief wie am Schnürchen, auf einmal nicht mehr.
Fehlermeldung:
Laufzeitfehler '1004'
Die Methode 'GetSaveAsFilename' für das Objekt'_Application' ist fehlgeschlagen
[/code]
Dim Name
Name = Application.GetSaveAsFilename("BackUp_Datensammlung_" & Date & ".xlsm", fileFilter:="Microsoft Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm")
If Name <> False Then
ActiveWorkbook.SaveAs Name, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
[\code]
Hoffe auf Hilfe :)