Code umbauen

Forumthread: Code umbauen

Code umbauen

13.08.2020 10:54:15

Sam

Hallo zusammen,
im Net habe ich diesen Code gefunden.
Bevor die Datei geschlossen wird, wird eine Sicherheitskopie gemacht.Die Datei wird am Tag von mehrern Benutzer bearbeitet ( Urlaubsprogramm ) Leider kommt ein Fehler bei:
Else
'wenn Verzeichnis vorhanden dann Sicherungskopie anlegen
ThisWorkbook.SaveCopyAs Filename:=strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
End If
hier der Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strVerzeichnis As String
Application.ScreenUpdating = False
strVerzeichnis = "G:\T\Allgemein\Büro\BackUp_TPL\"
If Dir(strVerzeichnis, vbDirectory) = "" Then
'wenn kein Verzeichnis vorhanden, dann Verzeichnis anlegen und  Sicherungskopie _
speichern
MkDir strVerzeichnis
ThisWorkbook.SaveCopyAs Filename:=strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
Else
'wenn Verzeichnis vorhanden dann Sicherungskopie anlegen
ThisWorkbook.SaveCopyAs Filename:=strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
End If
Application.ScreenUpdating = True
End Sub

Es soll am Tag nur einmal eine Kopie erstellen. Wenn der Tag ( Urlaub 2020 TPL.xlsb_Backup_2020_08_12 ) schon einmal in den Ordner drin ist, soll er keine Kopie mehr machen, sonst habe ich am Tag bestimmt 40 Dateien drin.
Kann mir jemand helfen.
Danke
LG Sam

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code umbauen

13.08.2020 11:03:35

Rudi
AW: Code umbauen

13.08.2020 11:07:41

Sam
AW: Code umbauen

13.08.2020 11:11:53

Sam
AW: Code umbauen

13.08.2020 11:21:18

Rudi
AW: Code umbauen

13.08.2020 11:22:37

Rudi
AW: Code umbauen

13.08.2020 11:33:18

Sam
NACHFRAGE

13.08.2020 11:41:07

Sam
AW: NACHFRAGE

13.08.2020 11:53:06

Sam
Fehler gefunden. Danke für alles

13.08.2020 13:02:53

Sam

AW: Code umbauen

13.08.2020 11:03:35

Rudi

Hallo,
mein Voeschlag:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strVerzeichnis As String, strFile As String
Application.ScreenUpdating = False
strVerzeichnis = "G:\T\Allgemein\Büro\BackUp_TPL\"
strFile = strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
If Dir(strVerzeichnis, vbDirectory) = "" Then
'wenn kein Verzeichnis vorhanden, dann Verzeichnis anlegen und  Sicherungskopie _
speichern
MkDir strVerzeichnis
End If
If Dir(strFile, vbNormal)  "" Then Kill strFile 'vorh. Datei löschen
ActiveWorkbook.SaveCopyAs strFile 'Kopie speichern
End Sub

Gruß
Rudi

AW: Code umbauen

13.08.2020 11:07:41

Sam

Hallo Rudi,
Danke,
was macht dein Code genau ?
Gruß Sam

AW: Code umbauen

13.08.2020 11:11:53

Sam

Ah er überschreibt es immer.
Kann man auch so machen das es nur beim ersten mal öffnt speichert und dann nicht mehr ?
Wenn jemand nämlich in der Spätschicht einen Fehler macht, kann man die Früh datei nehmen.

AW: Code umbauen

13.08.2020 11:21:18

Rudi

dann fehlen dir doch alle folgenden Änderungen

AW: Code umbauen

13.08.2020 11:22:37

Rudi


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strVerzeichnis As String, strFile As String
Application.ScreenUpdating = False
strVerzeichnis = "G:\T\Allgemein\Büro\BackUp_TPL\"
strFile = strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
If Dir(strVerzeichnis, vbDirectory) = "" Then
'wenn kein Verzeichnis vorhanden, dann Verzeichnis anlegen und  Sicherungskopie _
speichern
MkDir strVerzeichnis
End If
If Dir(strFile, vbNormal) = "" Then  'Kopie wenn noch nicht vorhanden
ActiveWorkbook.SaveCopyAs strFile 'Kopie speichern
End If
End Sub

AW: Code umbauen

13.08.2020 11:33:18

Sam

HAllo Rudi,
Perfekt.
Danke
Sam

NACHFRAGE

13.08.2020 11:41:07

Sam

Hallo Rudi,
jetzt wollte ich die Datei Backup datei öffnen:
Jetzt kommt eine Fehlermeldung:
Die Datei.......kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschätigt ist und ob die Dateierweiterung dem Dateiformat entspricht.

AW: NACHFRAGE

13.08.2020 11:53:06

Sam

HAllo Rudi,
kann das daran liegen, das die Datei bevor man sie öffnet ein Passwort hinterlegt ist . Das dann die Backup datei probleme macht ?

Fehler gefunden. Danke für alles

13.08.2020 13:02:53

Sam

Beliebteste Forumthreads (12 Monate)

Forumthread: Code umbauen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread