Arbeitsmappe doppelt sichern in zwei unterschiedliche Pfade

Sub DateiDoppeltSpeichern()

'
' Das Makro ermöglicht es, die Originalarbeitsmappe zu speichern und eine Sicherheitskopie in einem anderen Laufwerk bzw. Verzeichnis zu erstellen.
'
'
' legt eine Sicherheitskopie der Arbeitsmappe in einem anderen Verzeichnis an
' Die Variablen lw, lw2, pfad, pfad2 sind entsprechend zu ändern
' Der Name der Sicherheitskopie wird hier "Kopie = "Arbeitsmappe_" & s_Datum & "_" & Format(s_Zeit, "hhmm") & ".xlsm" " festgelegt und ist entsprechend zu ändern
'
Dim strOriginal As String    ' Bezeichnung der Originaldatei
Dim strKopie As String      ' Bezeichnung der Kopie
Dim str_Datum As String
Dim str_Zeit As String
Dim i As Integer

Const lw = "e:"            ' Laufwerk der Originaldatei
Const lw2 = "e:"           ' Laufwerk der Sicherungskopie
Const pfad = "E:\Sicherung"         ' Pfad zur Originaldatei
Const Pfad2 = "E:\Sicherung\test"   ' Pfad zur Kopie

' Will man die Dateibenennung mit Datum und Uhrzeit vornehmen, dann ist ein Zwischenschritt notwendig. Die Uhrzeit wird mit Doppelpunkten (:) ausgegeben.
' Diese Zeichen sind in der Dateibenennung aber nicht erlaubt.
str_Datum = Date            ' Orndet dem string das Datum zu
str_Zeit = Time             ' Orndet dem string das Zeit zu

strOriginal = ActiveWorkbook.Name ' Name der Originaldatei wird festgelegt
strKopie = "Arbeitsmappe_" & str_Datum & "_" & Format(str_Zeit, "hhmm") & ".xlsm" ' Name der Sicherungskopie wird festgelegt.

On Error GoTo fehler

' Originaldatei wird gespeichert
ChDrive lw
ChDir pfad
With ActiveWorkbook
.SaveAs Filename:=strOriginal, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End With

' Sicherungsdatei wird gespeichert
ChDrive lw2
ChDir Pfad2
'ActiveWorkbook.SaveAs "Test_Arbeitsmappe_" & s_Datum & "_" & Format(s_Zeit, "hhmm") & ".xlsm", ReadOnlyRecommended:=True
With ActiveWorkbook
.SaveAs Filename:=strKopie, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=True
'.Close
End With

' Achtung nachdem alle Sicherung erfolgreich erstellt wurden, ist die SICHERUNGSKOPIE geöffnet. Die ORIGINALDATEI wurde geschlossen.
' Die Originalarbeitsmappe wird geöffnet
Call ArbeitsmappeÖffnen

' Schließt die Sicherungskopie, so dass nur die Originalarbeitsmappe geöffnet bleibt
Workbooks(strKopie).Close

Exit Sub

' Dialog bei Fehlern während des Speicherns
fehler:
MsgBox "Laufwerk/Verzeichnis nicht gefunden!" & vbCr & "Das Speichern wurde abgebrochen"


End Sub

Private Sub ArbeitsmappeÖffnen()
Const lw = "E:"
Const pfad = "E:\Sicherung"
Const datei = "20101124_Test.xlsm"

    ChDrive lw
    ChDir pfad
    
    On Error Resume Next
    Workbooks.Open datei
End Sub

...
strKopie = "Test_Arbeitsmappe_" & str_Datum & "_" & Format(str_Zeit, "hhmm") & ".xlsx"
...
.SaveAs Filename:=strKopie, FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=True
...