0160-93 82 19 37 | Nehmen Sie 
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!
