Hallo,

in einem Teil eines Makros greife ich auf ein File welches am Desktop liegt zu, damit das bei anderen Benutzern auch funktioniert verwende ich die Environ funktion. Bei mir geht das ganze Problemlos, bei meinem Arbeitskollegen kommt diese Fehlermeldung:

Projekt oder bibliothek nicht gefunden

die Verzeichnisse im VBA-Editor habe ich bei meinem Kollegen geprüft, hier sind die selben Einstellungen wie bei mir.

Weis wer an was es liegen könnte?

bg

Thomas

Hier noch der Code:

Sub Dataupdate_Klicken()

    Application.ScreenUpdating = False


    ActiveSheet.Shapes("dataupdate").OLEFormat.Object.Caption = "Daten update Stand: " & FileDateTime("C:\Users\" & Environ("userName") & "\Desktop\EXPORT.XLSX")
  

    Workbooks.Open ("C:\Users\" & Environ("userName") & "\Desktop\EXPORT.XLSX")
            
        If Workbooks("EXPORT.xlsx").Worksheets("Sheet1").Range("A1").Value = Workbooks("Tracking_Rückmeldezeiten_Assy_erweitert_v2.xlsm").Worksheets("Data_Input").Range("A1") Then
                      
            Workbooks("EXPORT.xlsx").Worksheets("Sheet1").Range("A:Z").Copy _
                Workbooks("Tracking_Rückmeldezeiten_Assy_erweitert_v2.xlsm").Worksheets("Data_Input").Range("A1")
        
        Else
        
            MsgBox "Datensätze stimmen nicht überein"
        
        End If
            
            
    Workbooks("EXPORT.xlsx").Close savechanges:=False

    Application.ScreenUpdating = True
    

End Sub