Frage zu automatischem speichern einer Dateikopie
26.05.2009 14:45:06
andreas
ich habe folgendes Problem:
ich möchte, dass sich eine Datei jedesmal, wenn sie gespeichert wird, in einer Kopie abspeichert.
Dazu benutze ich folgendes Makro:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.SaveCopyAs ("Z:\groups\Ordner1\MM\KOPIE SC-Berger.xls")
End Sub
Das Problem ist, dass das Makro ja auch logischerweise in der neuen Datei vorhanden ist.
Wenn nun dort eine Änderung vornehme und diese speichern möchte (ggf. auch unter anderem Dateinamen) löst das Makro einen Fehler aus, da ich die Datei ja bearbeite und er nicht abspeichern kann.
Kann mir jemand einen Tipp geben, wie ich entweder vermeide, dass das Makro mitgespeichert wird, oder ich zumindest noch den "Speichern unter" Befehl verwenden kann?
Vielen Dank für die Hinweise vorab.
Viele Grüße
Andreas