VBA Code mit Benutzerabhängigem Dateipfad

Danke für die Antwort, ich habe inzwischen auch selbst eine Lösung gefunden die so aussieht

Und wie lang wird Deine Nase wenn ein User das mal so eben in den Einstellungen ändert?
Oder der Admin den Login ändert? Das mag zufällig bei den meisten so gehen. .-)
<br />

Woher kommt denn der Environment-Eintrag USERNAME den Du da abfragst?
<br />https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/environ-function
<br />Und wo wird der Pfad festgelegt wo OneDrive die Datei synchronisiert?
<br />https://support.microsoft.com/de-de...-ordners-f386fb81-1461-40a7-be2c-712676b2c4ae
<br />Das hat nichts miteinander zu tun, es passt bei Dir nur zufällig.
<br />

Danke für die Antwort, ich habe inzwischen auch selbst eine Lösung gefunden die so aussieht
<br />Sub ExportWorksheetAsPicture()
<br />Dim chtPicture As Chart
<br />Dim strSheetName As String
<br />Application.ScreenUpdating = False
<br />ActiveSheet.Range("A1:B3").CopyPicture Appearance:=xlScreen, Format:=xlPicture
<br />Set chtPicture = Charts.Add
<br />chtPicture.Select
<br />chtPicture.Paste
<br /> User = VBA.Environ("UserName")
<br />chtPicture.Export "C:\Users\" & User & "\OneDrive - HAWE\Dokumente\General\Produktivität681.jpg"
<br />Application.DisplayAlerts = False
<br />chtPicture.Delete
<br />Application.DisplayAlerts = True
<br />Set chtPicture = Nothing
<br />Application.ScreenUpdating = True
<br />End Sub
<br />
<br />

Du kannst mutmaßen das der Pfadname mit dem Usernamen übereinstimmt, das muss aber nicht sein. In dem Fall musst Du den User fragen wo es gespeichert werden soll.
<br />Andreas.
<br />Sub ExportWorksheetAsPicture()
Dim chtPicture As Chart
Dim Path As String

Path = "C:\Users\" & Application.UserName & "\OneDrive - HAWE\Dokumente"

If Dir(Path, vbDirectory) = "" Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Path
.AllowMultiSelect = False
If Not .Show Then Exit Sub
Path = .SelectedItems(1)
End With
End If

Application.ScreenUpdating = False
ActiveSheet.Range("A1:B3").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
chtPicture.Export Path & "\681.gif"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

<br />

Ich versteh ehrlich gesagt nicht worauf du hinaus willst. Wie schon gesagt ich bin ein ziemlicher Vba Noob für mich ist das wichtigste dass es funktioniert.
<br />