Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: thepocky am März 18, 2012, 01:46:51 Vormittag

Titel: Office 2010: Makro Wenn datei beim Speichern vorhanden ersetzen
Beitrag von: thepocky am März 18, 2012, 01:46:51 Vormittag

Hallo,

ich habe folgendes Makro:

Code: [Auswählen]

Sub Sicherheitskopie()

Dim Altname As String, Neuname As String, Pfad As String

Pfad = "M:\Freecom-HardDriveXS-01\SICHERHEITSKOPIE_Wurzelimperium"

ThisWorkbook.Save

Altname = ThisWorkbook.FullName

If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"

Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name

ThisWorkbook.SaveAs Filename:=Neuname

Workbooks.Open (Altname)

ThisWorkbook.Close


End Sub
Dieses Makro wird zurzeit Ausgeführt beim Schließen der Datei. Nun möchte ich dieses Erweitern.

Beim Schließen soll noch überprüft werden, ob es schon eine Datei mit dem selben Naben gibt in dem Ordner. Falls ja, soll die Datei ersetzt werden, wenn nicht, normal Speichern.

Für einen Lösungsansatz wäre ich dankbar.

Viele Grüße
Björn

Titel: Office 2010: Antw:Office 2010: Makro Wenn datei beim Speichern vorhanden ersetzen
Beitrag von: thepocky am März 18, 2012, 02:48:39 Vormittag

Hallo nochmals,

mal wieder habe ich mir selber geholfen!

Wenn die Geduld nur so lang wäre wie ich Groß bin!  :D

Lösung:

(Funktioniert natürlich als Schlatfläche und beim Close)

Code: [Auswählen]

Public Sub Speichern()

Dim Altname As String, Neuname As String, Pfad As String

Pfad = "M:\Freecom-HardDriveXS-01\SICHERHEITSKOPIE_Wurzelimperium"

ThisWorkbook.Save

Altname = ThisWorkbook.FullName

If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"

Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Neuname

Application.DisplayAlerts = True

Workbooks.Open (Altname)

ThisWorkbook.Close



End Sub

Ich habe einfach folgendes ersetzt:

Code: [Auswählen]

ThisWorkbook.SaveAs Filename:=Neuname
Durch folgendes:

Code: [Auswählen]

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Neuname

Application.DisplayAlerts = True
Gruß
Björn