speichern- wenn Name vorhanden überspringen
03.07.2014 12:15:20
stefan
Hallo
wie kann ich den Code erweitern das wenn die Datei bereits existiert automatisch die Speicherung entfällt / übersprungen wird.
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:="\\XXX\Daten\Test\" & Date & "_" & ActiveSheet.Name & ".xls", FileFormat:=xlNormal
ActiveWorkbook.Close