Ja, schließe die Datei (entweder am Schluss der Bearbeitung oder
schließe sie kurzzeitig, benenne sie um und öffne sie wieder (dabei
sollte Application.ScreenUpdating = false sein)) und benenne sie via
'name' um.
Michael
versuchs doch einfach mit "Speichern unter"
dim Altername as string
Altername=activeworkbook.fullname 'Speichert den alten Namen mit Pfad
activeworkbook.saveas NeuerName ' Speichert die Datei unter einem neuen Name
= DATEI/SPEICHERN UNTER
kill Altername 'Löscht die alte Datei
--
Mfg Helma Spona
- freie Autorin -
- vmi-buch, MS Press, Data Becker, RedTec, WEKA, WRS ... -
http://www.helma-spona.de
http://www.browser-bugs.de (NEU!!!)
http://www.edv-sk.de
"Markus Springer" <spri...@technidata.de> schrieb im Newsbeitrag
news:9d5ksp$o3c$1...@kilbeggan.xlink.net...