531 Aufrufe
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
von m-o Profi (22.9k 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.

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...