Gruppe
Datei
Bereich
Kopieren
Thema
Sicherungskopie in einem anderen Verzeichnis erstellen
Problem
Wenn ich beim Speichern die CheckBox "Sicherungsdatei erstellen" aktiviere, wird die BackUp-Datei im gleichen Verzeichnis wie die Arbeitsmappe erstellt. Kann ich hier ein anderes Verzeichnis vorgeben?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SpeichernMitKopie()
Dim sPath As String, sFile As String, sName As String
sPath = Range("B1").Value
If Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
sName = ThisWorkbook.FullName
sFile = ThisWorkbook.Name
sFile = Left(sFile, Len(sFile) - 1) & "bak"
ThisWorkbook.SaveAs sPath & sFile
ActiveWorkbook.SaveAs sFile
End Sub