SaveCopyAs mit Ordnername lt. Zelle A1
11.11.2005 18:07:36
HARRY
ich habe für mehrere USER die gleichen Datei, welche ich per Code (SaveCopyAs) jeweils speichern lasse.
Pro User habe ich dafür 1 Ordner angelegt.
USER1
USER2
USER3
usw.
Der Code sieht so aus:
'Sicherungskopie erstellen:
ActiveWorkbook.SaveCopyAs Filename:="K:\USER1\"& [USERNAME] & Format(Date, "YYYY.MM.TT") & ".xls"
Nun zu meiner Frage:
Da ca. 100 USER mit diesem System arbeiten möchte ich natürlich nicht 100 mal den Code manuell ändern müssen. Ist es möglich den Ordnernamen (Speicherort) mit Hilfe der Zelle A1 zu definieren ? (In Zelle A1 steht der USER-NAME)
Vielen Dank schon mal im voraus.
Gruß, HARRY