Hallo zusammen,

ich möchte gerne eine xml-Datei in Excel über ein Makro öffnen. Das ist an sich ja auch nicht das Problem, ich hätte nur ganz gerne im Dialogfeld "Öffnen" als erstes den Desktop angezeigt. Und jetzt das eigentliche Problem: das ganze soll nicht nur funktionieren, wenn ich angemeldet bin, sondern auch bei anderen Personen. Es ändert sich also immer der Pfad: C:\Users*BenutzerXY*\Desktop Ich habe folgendes versucht:

str = (Environ("Username"))
strFilter = "eBOP(*.xl*),*.xl*"           '--- Bausteinkatalog als xml-Datei öffnen
ChDrive "X"                               '--- Anfangspfad beim Dialogfeld "Öffnen"
ChDir "C:\Users\" & str & "\Desktop"

strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Set wb = Workbooks.Open(strFileName)

Leider läuft das nicht so wie gewünscht. Das Environ("Username") gibt mir zwar meinen Username als String zurück, wird aber bei ChDir nicht verwendet. Merkwürdigerweise gibts aber auch keine Fehlermeldung, es wird einfach ein Pfad genommen, den ich vorher mal definiert hatte...

Hat jemand von euch einen Tipp? Gruß Jan