Saveas Problem Vorhandene Datei überschreiben (Excel VBA)
Ich habe das folgende Makro, das bis auf das richtig istSaveAs
gibt mir einen Fehler, wenn ich klickeNo
oderCancel
, wenn ich klickeyes
funktioniert gut.
ActiveWorkbook.SaveAs Filename:=FileName, FileFormat:=xlWorkbook, ConflictResolution:=xlLocalSessionChanges
Application.DisplayAlert =True
Aber wenn ich dazu kommeSaveAs
teil ich bekomme folgenden fehler wenn ich auswähleNo
zum speichern. Excel-Nachricht:An dieser Stelle existiert bereits eine Datei mit dem Namen ".........". Möchten Sie es ersetzen? Ich klicke auf 'Nein' odercancel
und erhalte den Laufzeitfehler 1004 .... MethodeSaveAs
des Objekts_Workbook
gescheitert.
Ich möchte das nicht benutzenApplication.DisplayAlerts = False
, weil ich möchte, dass der Benutzer weiß, dass bereits eine Datei mit demselben Namen vorhanden ist.
No
oderCancel
und nicht den Laufzeitfehler bekommen.