Speicher-Ordner datumsabhängig (Makro)
04.07.2005 15:48:45
Max
ich habe hier in der Recherche ein Makro gefunden, welches nach Abschluss aller
Arbeiten die Datei in einen Ablage-Ordner kopiert und das Original löscht.
Der Ablage-Ordner hat jeweils die Bezeichnung des aktuellen Jahres: z. Zt.
also "2005". Nächstes Jahr dann "2006" usw.
Kann man das Makro so erweitern, dass sich der Speicherpfad datumsabhängig
ändert oder muss das Makro jedes Jahr umgeschrieben werden?
Sub originalcopyundlöschen()
Dim original As String
original = ThisWorkbook.FullName
Name = ThisWorkbook.Name
targetPath = InputBox("Diese Datei wird in den unten angegebenen Ordner kopiert und das Original danach gelöscht.", Speichern, "C:\2005\" & Name) 'Hier kannst du einen Pfad voreinstellen!
If targetPath = "" Then Exit Sub
ThisWorkbook.SaveAs targetPath
Kill original 'löscht ohne Rückfrage! Ist gefährlich!
ThisWorkbook.Close
End Sub
Für Hilfe oder Tips wäre ich euch sehr dankbar.
Gruß
Max
Anzeige