VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Automatisch Sicherungsdatei erstellen

Gruppe

Datei

Bereich

Arbeitsmappe

Thema

Automatisch Sicherungsdatei erstellen

Problem

Wie kann ich beim Speichern jeder Arbeitsmappe automatisch eine Sicherungsdatei erstellen?

Lösung

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




StandardModule: basMain

Sub SaveAndBackup()
   Dim sName As String, sMsg As String
   On Error GoTo ERRORHANDLER
   sMsg = "Bitte Pfad und Dateinamen angeben:"
   sName = ActiveWorkbook.FullName
   sName = InputBox( _
      prompt:=sMsg, Default:=sName)
   If sName = "" Then Exit Sub
   ActiveWorkbook.SaveAs FileName:=sName, FileFormat:= _
      xlNormal, Password:="", WriteResPassword:="", _
      ReadOnlyRecommended:=False, CreateBackup:=True
   Exit Sub
ERRORHANDLER:
   MsgBox "Datei konnte nicht gespeichert werden!"
End Sub

    


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