Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sicherheitskopie einzelner Arbeitsblätter

Gruppe

Speichern

Problem

Die Blätter Tabelle1 und Tabelle3 sollen als Sicherheitsdatei mit der Datei-Suffix *.bak in einem BackUp-Verzeichnis gespeichert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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