Gruppe
Datei
Problem
Die Blätter Tabelle1 und Tabelle3 sollen als Sicherheitsdatei mit der Datei-Suffix *.bak in einem BackUp-Verzeichnis gespeichert werden.
StandardModule: basMain
Sub SaveAndBackUp()
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
sPath = Range("B1").Value & "\"
With ActiveWorkbook
sFile = Left(.Name, Len(.Name) - 3) & "bak"
End With
Worksheets(Array("Tabelle1", "Tabelle3")).Copy
ActiveWorkbook.SaveAs sPath & sFile
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub