Datensicherung auf einem anderen Laufwerk erstellen

105042



Mit dem folgenden Makro können Sie eine Datensicherung der aktuellen Mappe auf einem anderen Laufwerk erstellen. Der Dateiname bleibt dabei gleich.

Sub speichern_unter()
Dim str As String

Const Lw = "H:\"
Const Pfad = "H:\eigene Dateien\"

str = ActiveWorkbook.Name
ChDrive Lw
ChDir Pfad

ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal
End Sub


In diesem Beispiel wird die Datensicherung auf Laufwerk H: im Verzeichnis \eigene Dateien also H:\eigene Dateien\ erstellt. Der Dateiname wird dabei nicht verändert!