239 Aufrufe
Gefragt in Tabellenkalkulation von
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 :)

1 Antwort

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo,

ich kann nur sagen, bei mir läuft der Code fehlerfrei (Excel 2016). Habt ihr etwas geändert?

Hast du das mal an einem anderen Rechner oder mit einem anderen Verzeichnis versucht?

Gruß

M.O.
...