Thema: Sicherungskopie in einem anderen Verzeichnis erstellen

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

Beiträge aus dem Excel-Forum zu den Themen Datei und Kopieren