Clever-Excel-Forum

Hallo,
habe eine Excel-VBA Anwendung. Dort wird in ein Pfad definiert:

Public Const Bildpfad = "C:\Users\%username%\OneDrive - Firma\Dokumente\"

der Pfad funktioniert natürlich so nicht, weil '%username%' so nicht aufgelöst wird. Ich brauche aber diesen Pfad so als Variable.
Weiß jemand, wie ich das Problem löse?

Gruß
Statler

Hi,

teste mal mit Environ("Username"), also

Public Const Bildpfad = "C:\Users\" & Environ("Username") &"\OneDrive - Firma\Dokumente\"

Moin!
2 Sachen:
→ Da Environ() eine Funktion ist, ist die Zuweisung an eine Konstante nicht möglich, daher Variable erforderlich
→ Es gibt auch eine Umgebungsvariable "OneDrive"

Code:
Dim Bildpfad$

Bildpfad = Environ("OneDrive") & "\Dokumente\"

Gruß Ralf

Was es sonst noch gibt?

Code:
Sub getEnviron()

    Dim i As Long: i = 0

    Dim v

    On Error GoTo err

    While Not err.Number = 5

        i = i + 1

        v = Split(Environ(i), "=")

        ActiveSheet.Cells(i, 1).Value = v(0) & "="

        ActiveSheet.Cells(i, 1).Offset(0, 1).Value = v(1)

    Wend

err:

End Sub

Hi Ralf,

das Const hatte ich in der Tat überlesen. Danke für den Hinweis!

Statler

{Boris}

RPP63

Mase

{Boris}