Excel-Dateiname eingeben und öffnen

Question

Hallo,

Ich möchte gern durch Eingabe in eine INputBox eine Datei öffnen lassen.

Momentan bin ich soweit:

Sub TESTaufrufen()
'
' TESTaufrufen Macro
'

'
Dim Filename As String

Workbooks.Open Filename:=ActiveWorkbook.Path & Filename = Application.InputBox("Please enter Filename")
End Sub

Problem ist, dass zwar eine InputBox aufploppt und ich dann dort den Namen der Datei plus Endung (in meinem Fall .xlsx) eingebe,
danach dann aber die bekannte Fehlermeldung mit anschließendem Debugger kommt.

Hat jemand einen Tipp wo mein Denkfehler liegt?

Vielen Dank

Answer 1

Hallo,

so müsste es reichen:

Sub TESTaufrufen()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & InputBox("Please enter Filename")
End Sub

Gruß
Rainer