Public Sub Range_To_Image6()

Const FILE_PATH As String = "N:\!Apps\FOF\Lampenbegleitdaten\Bilder_Kabel\test.png" 'Pfad und Dateiname für das Bild'
Dim objChrt As Chart
Dim rngImage As Range
Dim benutzerEingabe As String
Dim path_from_cell_R1 As String

' Wert aus Zelle R1 auslesen
path_from_cell_R1 = Worksheets("DTS und HP").Range("R1") ' Ersetze dies durch den tatsächlichen Wert aus Zelle R1

' Inputbox anzeigen
benutzerEingabe = InputBox("Bitte gib einen Wert ein:", "Benutzereingabe", path_from_cell_R1)

If benutzerEingabe > "" Then
' Hier kannst du den eingegebenen Wert weiterverarbeiten
MsgBox "Du hast folgenden Wert eingegeben: " & benutzerEingabe
Else
MsgBox "Du hast keine Eingabe gemacht."
End If
With Worksheets("DTS und HP") 'Tabellenname - Anpassen!'

Set rngImage = .Range("C4:AN45")

rngImage.CopyPicture appearance:=xlScreen, Format:=xlPicture

Set objChrt = .ChartObjects.Add(1, 1, rngImage.Width, rngImage.Height).Chart

With objChrt
.Parent.Activate
.Paste
.Export benutzerEingabe
.Parent.Delete
End With
End With

Set objChrt = Nothing
Set rngImage = Nothing
End Sub

Ich habe ein Problem. Ich möchte das für Export ein Dynamisch wert benutzt wird. Es befindet sich in der Zelle R1. Wie es oben ist leider Funktioniert nicht weil das VBA findet dem Pfad nicht. Wenn ich statt "benutzerEingabe" ich gebe die Wert von Zelle R1 ein in "" dann die Programm lauft durch ohne Fehler.

könnt ihr vielleicht helfen?