Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung beim speichern

Fehlermeldung beim speichern
15.11.2015 10:39:33
Walter
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung beim speichern
15.11.2015 11:12:11
Herbert
Hallo Walter,
bei mir funzt dein Code einwandfrei. Überprüfe deine Variablen und den Pfad. Es sollte eigentlich klappen.
Servus

Hallo Herbert, versuch es gleich...
15.11.2015 14:25:24
Walter

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

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

Ich habe es anders gelöst, DANKE Herbert -)
15.11.2015 15:07:41
Walter
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
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige