Thema Datum  Von Nutzer Rating
Antwort
Rot Environ("userName") fehler bei anderem Benutzer
17.11.2022 15:33:53 Thomas Stehrer
NotSolved
17.11.2022 15:36:43 RPP63
NotSolved
17.11.2022 15:43:28 Thomas
NotSolved
17.11.2022 16:04:02 Mase
NotSolved
17.11.2022 16:04:25 Mase
NotSolved
17.11.2022 16:24:27 Thomas
NotSolved
17.11.2022 16:30:14 xlKing
NotSolved
17.11.2022 16:34:33 Thomas
NotSolved
18.11.2022 10:07:19 Thomas
NotSolved
18.11.2022 12:27:18 Gast21804
NotSolved
29.11.2022 11:22:14 Thomas
NotSolved
29.11.2022 11:22:20 Thomas
NotSolved
29.11.2022 11:22:21 Thomas
NotSolved
29.11.2022 11:22:21 Thomas
Solved

Ansicht des Beitrags:
Von:
Thomas Stehrer
Datum:
17.11.2022 15:33:53
Views:
404
Rating: Antwort:
  Ja
Thema:
Environ("userName") fehler bei anderem Benutzer

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Environ("userName") fehler bei anderem Benutzer
17.11.2022 15:33:53 Thomas Stehrer
NotSolved
17.11.2022 15:36:43 RPP63
NotSolved
17.11.2022 15:43:28 Thomas
NotSolved
17.11.2022 16:04:02 Mase
NotSolved
17.11.2022 16:04:25 Mase
NotSolved
17.11.2022 16:24:27 Thomas
NotSolved
17.11.2022 16:30:14 xlKing
NotSolved
17.11.2022 16:34:33 Thomas
NotSolved
18.11.2022 10:07:19 Thomas
NotSolved
18.11.2022 12:27:18 Gast21804
NotSolved
29.11.2022 11:22:14 Thomas
NotSolved
29.11.2022 11:22:20 Thomas
NotSolved
29.11.2022 11:22:21 Thomas
NotSolved
29.11.2022 11:22:21 Thomas
Solved