Makro Sicherung anpassen
02.11.2018 21:35:19
Tyler
mein Wissen über Makros ist leider sehr übersichtlich, und ich komme leider nicht mehr weiter. In einem anderen Forum konnte man mir leider nicht helfen, ich würde gerne versuchen ob jemand von euch mir helfen kann.
Ich habe eine Makro die mir eine Sicherungskopie erstellt sobald ich meine Datei Speichere.
Diese funktioniert auch Super und Schnell.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim SavePath As String
Dim FileName As String
Dim FileExtension As String
Dim FileDate As String
Dim FileBackupName As String
Dim FileUsername As String
SavePath = "C:\Test\Sicherung \Backup"
FileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
FileExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1)
FileUsername = Environ("UserName")
FileDate = Format(Now, "YYYYmmdd_hhmmss")
FileBackupName = SavePath & FileName & "_" & FileUsername & "_" & FileDate & "." & _
FileExtension
ActiveWorkbook.SaveCopyAs FileBackupName
End Sub
Allerdings würde ich gerne zwei Sicherungskopien mit dieser Makro erstellen, unter bestimmten Kriterien und meine Ansätze Funktionieren einfach nicht (Laie)
Die Marko die ich gepostet habe erzeugt eine Datei in dieser Form: BackupVereinsplan 1.1_USER_20181101_095355 -mit Makros-
Und ich hätte gerne, dass noch eine weitere Kopie in einen anderen Pfad gesichert wird
Die aber unverändert den Namen von der Original Datei trägen soll. (hier wäre das: Vereinsplan 1.1.xlsm)
Das wären dann zwei Dateien in unterschieldichen Pfäden:
1x BackupVereinsplan 1.1_USER_20181101_095355.xlsm
+
1x Vereinsplan 1.1.xlsm
Und nun zum kniffligen Teil und ich weiß nicht ob es so möglich ist. wie ich mir das vorstelle.
Datei 1 - BackupVereinsplan 1.1_USER_20181101_095355.xlsm soll nur 10 Sicherungsdateien erstellen und die älteste (11Datei) Löschen. (diese vielleicht auch ohne Makros Speichern)
Datei2 - Vereinsplan 1.1.xlsm - soll immer wieder neu überschrieben werden und den Original Namen tragen.
Ich weiß nicht ob das wichtig ist? Aber es wird noch über eine Marko ein Blattschutz gesetzt.
Den habe ich aber hinbekommen und der funktioniert.
Ich hoffe jemand hat einen Lösungsansatz, denn ich bin am Verzweifeln.
Vielen Dank euch
Tyler