VBA Makro einmal am Tag ausführen
06.02.2019 15:47:37
Sophie
ich habe ein funktionierendes Makro, das beim Öffnen einer Datei eine Sicherungskopie erstellt. Da diese Datei aber viele Nutzer am Tag öffnen, soll nicht jedes Mal eine Kopie erstellt werden, sondern nur einmal am Tag. Hat jemand eine Idee wie das zu lösen ist? Eventuell über Date?
Hier mein Code :
Private Sub Workbook_Open()
Dim SavePath As String
Dim FileName As String
Dim FileExtension As String
Dim FileDate As String
Dim FileBackupName As String
Dim temp As Date
SavePath = "C:\Users\sosautt\Desktop\AV-Sheets"
FileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
FileExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1)
FileDate = Format(Now, "YYYYmmdd_hhmmss")
FileBackupName = SavePath & FileName & "_" & FileDate & "." & FileExtension
ActiveWorkbook.SaveCopyAs FileBackupName
End Sub