Hallo beisammen,

ich habe ein kleines Problem mit meinem Code:

Grundsätzlich soll jedesmal, wenn eine bestimmte .xlsm-Datei geöffnet wird täglich ein "Backup" der Datei in einem Ordner erstellt. Dafür verwende ich folgenden Code:

Auf meinem Computer funktioniert das einwandfrei. Wenn ich den Code allerdings bei meinem Kollegen auf dem Computer "probiere" mit dem originalen Pfad (greift auf ein geschütztes Netzlaufwerk zu), dann erstellt er irgendwie immer eine temporäre Datei und erstellt die Backup-Datei nicht. Auf meinem PC greife ich übrigens auch auf ein geschütztes Netzlaufwerk zu und da funktioniert es einwandfrei.

Für Ideen bin ich gerne zu haben.

Private Sub Workbook_Open()
    Application.DisplayAlerts = False
    Dim Pfad As String
    Dim HeutigesDatum As String
    Dim wb As Workbook
    Dim DateiName As String
    Dim CompletePath As String
    Set wb = ThisWorkbook
    'Erstellt ein Dokument mit dem Namen "YYYY-MM-DD_Dokumentenname.xlsm"
    HeutigesDatum = Format(CDate(Date), "yyyy-mm-dd")
    Pfad = "G:\Beispiel\"
    DateiName = "Dokumentenname.xlsm"
    
    CompletePath = Pfad & HeutigesDatum & "_" & DateiName

    'Prüfung ob das Dokument im Backupordner ist
    If wb.Path & "\" <> Pfad Then
        wb.SaveCopyAs Filename:=CompletePath
    End If
    Application.DisplayAlerts = True
End Sub

Auf meinem Computer funktioniert das einwandfrei. Wenn ich den Code allerdings bei meinem Kollegen auf dem Computer "probiere" mit dem Originalen Pfad (greift auf ein geschütztes Netzlaufwerk zu), dann erstellt er irgendwie immer eine temporäre Datei erstellt die Backup-Datei nicht.