Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Sicherungskopie in einem anderen Verzeichnis erstellen
Gruppe
Kopieren
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