Sicherungskopie
03.08.2019 13:23:55
Stephan
ich habe eine Datei von der ich gerne eine Sicherungskopie erstellen möchte. Die Sicherungskopie soll im gleichen Pfad gespeichert werden. In der Sicherungskopie sollen alle Makros entfernt sein, die Formeln sollen nur als Werte angezeigt werden und es gibt einige Tabellenblätter, die ich gerne löschen möchte - auch ausgblendete.
Schön wäre es alles in einem zusammen in einem Makro zu haben.
Für die Sicherungskopie verwende ich bisher. Allerdings arbeite ich dann in der Originaldatei weiter.
Grüße
Stephan
Sub Backup_erstellen_3()
Datei = ThisWorkbook.Name
Phad = ThisWorkbook.Path
On Error Resume Next
Kill Phad & "\" & "Formeln_vorhanden" & Format(Now, "YY-MM-DD") & "Backup.xlsm"
ActiveWorkbook.SaveCopyAs Filename:=Phad & "\" & "Dateiname" & Format(Now, "YY.MM.DD_HH-MM- _
SS") & "Backup.xlsm"
End Sub
Sub NurWerte()
Dim i As Integer, Sh As Integer
Sh = Worksheets.Count
For i = 1 To Sh
With Sheets(i)
.Activate
.Cells.Copy
.Cells.PasteSpecial Paste:=xlPasteValues
.Cells(1, 1).Select
Application.CutCopyMode = False
End With
Next i
Sheets(1).Select
End Sub