Sicherungsdatei Speichern ohne Abfrage

[excelri]

Hallo zusammen,  mit folgen Makro wird eine Sicherungsdatei angelegt und Excel beendet.
Nun möchte ich gern das keine Abfrage kommt , das diese Datei schon existiert und überschrieben werden soll.

Danke schon mal für die Antworten

Sub Kopie2()
'
' Sicherungsdatei
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Sicherung\Daten.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  
        Application.Quit
End Sub

[RPP63]

Moin!
Am Anfang des Makros:
Application.DisplayAlerts = False
Es sollte am Schluss wieder auf True gesetzt werden.
Ist dabei zwar nicht notwendig, entspricht aber eher einem sauberen Programmierstil.

Gruß Ralf

[Käpt'n Blaubär]

Hallo,

ich würde in den SaveAs-String eine Zeitangabe mit einbauen.
Dann gibt es diese Meldung erst gar nicht.

[excelri]

Moin!
Am Anfang des Makros:
Application.DisplayAlerts = False
Es sollte am Schluss wieder auf True gesetzt werden.
Ist dabei zwar nicht notwendig, entspricht aber eher einem sauberen Programmierstil.

Gruß Ralf

Danke habe es eingefügt , klappt

[excelri]

Hallo,

ich würde in den SaveAs-String eine Zeitangabe mit einbauen.
Dann gibt es diese Meldung erst gar nicht.

Hallo Käpt'n Blaubär , habe  Datum mit eingefügt. Danke

[Käpt'n Blaubär]

Hallo,

Hallo Käpt'n Blaubär , habe  Datum mit eingefügt. Danke

... war aber nicht mein Vorschlag. Wenn Du das Datum nutzt und mehr als einmal am Tag speicherst,
dann hast Du die ungewollte Meldung weiterhin.
Darum schrieb ich Zeitangabe und nicht Datumangabe.

Im Beispielcode mal beides

Sub DateiInAnderenOrdner()
Dim strPfad As String, strDatei As String
strPfad = "C:\Users\Admin\Desktop\xlSicherungsdateien"
strDatei = "Meine_Sicherungskopie"
   ActiveWorkbook.Save
   ActiveWorkbook.SaveCopyAs Filename:=strPfad & "\TEST\" & "_" & Format(Now, "YY.MM.DD _ HH.MM.SS") & "_" & strDatei & ".xls"
End Sub

[excelri]

Hallo,


... war aber nicht mein Vorschlag. Wenn Du das Datum nutzt und mehr als einmal am Tag speicherst,
dann hast Du die ungewollte Meldung weiterhin.
Darum schrieb ich Zeitangabe und nicht Datumangabe.

Im Beispielcode mal beides

Hallo , das werden dann zu viel Dateien am Tag.
Ich habe die Antwort von RPP63  davor gesetzt und er frag nichts mehr.  (Application.DisplayAlerts = False)

Danke für den Hinweis

[Käpt'n Blaubär]

Hallo,

Hallo , das werden dann zu viel Dateien am Tag.

tja, ich hätte nicht gedacht, daß der Code die Löschen-Funktion außer Kraft setzt.

Auch das könnte man übrigens bereits in dem Makro miterledigen lassen, so daß
am Ende des Tages auch nur die jüngste Datei erhalten bleibt.

[Kuwer]

Hallo Peter,

tja, ich hätte nicht gedacht, daß der Code die Löschen-Funktion außer Kraft setzt.

soll er ja auch nicht. Siehe Frage in #1: "Hallo zusammen,  mit folgen Makro wird eine Sicherungsdatei angelegt und Excel beendet.
Nun möchte ich gern das keine Abfrage kommt , das diese Datei schon existiert und überschrieben werden soll."

Gruß Uwe

[Käpt'n Blaubär]

Hallo Uwe,

HIV ... Hab Ich Vergessen
Aber auch in meiner Lösung gibt es keine Überschreiben-Meldung.
Da der TE eine für sich stimmige Lösung hat, ist meine Meinung ja
sowieso nicht mehr relevant.
Ich wollte eigentlich auch nur eine andere Lösung vorstellen.