Fehlermeldung beim speichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Fehlermeldung beim speichern
von: Walter mb
Geschrieben am: 15.11.2015 10:39:33

Guten Moprgen zusammen,
ich habe folgendes im Makro:
.....
Else
' Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\_Test\__Dokumente.wb\Rechnungen alle\" & DateiNam & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
ActiveWorkbook.Close False
wenn ich diese Zeile:
Application.DisplayAlerts = False
aktiviere kommt die Abfrage "Nein" oder "Abbrechen", in beiden Fällen
kommt Fehlermeldung:Laufzeitfehler 1004
Die Methode SaveAs ist fehlgeschlagen.
Wenn ich die Zeile aktiviere, wird gespeichert und geschlossen.
Was soll ich ändern ?
Gruß
walter mb

Bild

Betrifft: AW: Fehlermeldung beim speichern
von: Herbert Grom
Geschrieben am: 15.11.2015 11:12:11
Hallo Walter,
bei mir funzt dein Code einwandfrei. Überprüfe deine Variablen und den Pfad. Es sollte eigentlich klappen.
Servus

Bild

Betrifft: Hallo Herbert, versuch es gleich...
von: Walter mb
Geschrieben am: 15.11.2015 14:25:24


Bild

Betrifft: Leider immer noch Fehlermeldung
von: Walter mb
Geschrieben am: 15.11.2015 14:33:30
Hallo Herbert,
leider erscheint immer noch die Fehlermeldung.
mfg
walter mb

Bild

Betrifft: Auch mit Variablen und den Pfad nicht
von: Walter mb
Geschrieben am: 15.11.2015 14:37:14
Hallo,
habe ein Makro aufgezeichnet also ohne Variablen, leider Fehlermeldung
bei NEIN und auch Abbrechen.
gruß
walter mb

Bild

Betrifft: Ich habe es anders gelöst, DANKE Herbert -)
von: Walter mb
Geschrieben am: 15.11.2015 15:07:41
Hallo Herbert,
habe es so gelöst:
Antwort = MsgBox("Möchten Sie die Rechnungs-Datei beenden" & Chr(13) & _
Chr(13) & "oder" _
& Chr(13) & Chr(13) & "offen lassen ? " _
& Chr(13) & Chr(13) & "Beenden dann > JA drücken" _
, vbCritical + vbYesNo, "Speichern und Schließen")
If Antwort = vbNo Then
Exit Sub
Else
MsgBox "es wird geschlossen"
ActiveWorkbook.Close False
End If
End If
gruß
walter mb

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung beim speichern"