Datensicherung auf einem anderen Laufwerk erstellen

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

{codecitation}
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
{/codecitation}

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!