Automatische Sicherheitskopie eines Bereichs
30.04.2019 09:32:17
alex_de_souza
mit dem folgenden Code wird jedesmal beim Speichern der Originaldatei eine Sicherungskopie gespeichert. Das klappt auch wunderbar. Nur wird immer die gesamte Datei gespeichert.
Ist es möglich, dass in der Sicherungskopie nur der Bereich von B4 bis I40 gespeichert wird? Dieser Bereich sollte in der Sicherungskopie ab B2 eingefügt werden.
Anbei mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim WbZ As Workbook
Dim Pfad$, Dname$
Pfad = "S:\Tools\"
Dname = "Test.xlsx"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Me
If Not .ReadOnly And SaveAsUI = False Then
.Sheets.Copy
Set WbZ = ActiveWorkbook
With WbZ
.SaveAs Filename:=Pfad & Dname, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close True
End With
End If
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Vielen dank.
Lg