VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Sicherheitskopie einzelner Arbeitsblätter

Gruppe

Datei

Bereich

Speichern

Thema

Sicherheitskopie einzelner Arbeitsblätter

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

    


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