in der Recherche bin ich auf den nachstehenden Code gestoßen, mit dem beim Öffnen der Mappe unter dem aktuellen Datum eine Sicherungskopie erstellt wird und in einem durch einen Pfad vorgegebenen Ordner gespeichert wird.
Ich würde nun gerne den Code so verändert haben, dass die Speicherung immer in einem Unterverzeichnis (Unterordner) "Sicherung" des Ordners erfolgt, aus dem die Originaldatei geöffnet wird. Ist ein solcher Ordner nicht vorhanden, sollte er erstellt werden.
Für Eure Unterstützung im voraus besten Dank.
Gruß
Fritz
Sub speichern()
Dim dname As String
Dim dateiname As String
Dim pfad As String
dateiname = "Name der Sicherung "
pfad = "C:\Dokumente und Einstellungen\..\Eigene Dateien\..\sicherung\2008"
dname = Format(Now, "DD_MM_YYYY")
Application.DisplayAlerts = False
If Dir(pfad & "/" & dateiname & dname & ".xls") = "" Then
ActiveWorkbook.SaveCopyAs Filename:=pfad & "/" & dateiname & dname & ".xls"
End If
Application.DisplayAlerts = True
End Sub