Hallo, Danke für die Antwort,
klappt leider beides nicht. Dein Code benennt die Aktuelle datei immer in Archiv+AktuellerDateiname um. Warum auch immer.
ich benötige glaube folgende Befehle:
Aktives Arbeitsblatt speichern unter "C:/Archiv" unter dem selben aktuellen Dateiname.
Die Aktuelle Datei Löschen (Die Datei die gerade noch auf ist)
Die in Zeile 1 abgespeicherte Datei öffnen
Weißt du zufällig die befehle dazu?
Sehe grad, dass da noch eine Unschärfe drin war, enwder das eine odr das andere...
Code:
1
2
3
4
5
6
7
8
9 |
|
Sub Testen1()
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Name ThisWorkbook.FullName As "C:\Archiv\" & ThisWorkbook.Name
End Sub
Sub Testen2()
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Name ActiveWorkbook.FullName As "C:\Archiv\" & ActiveWorkbook.Name
End Sub
|
_________
viele Grüße
Karl-Heinz
|