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
|