1.1k Aufrufe
Gefragt in Tabellenkalkulation von
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

1 Antwort

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo,

so müsste es reichen:
Sub TESTaufrufen()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & InputBox("Please enter Filename")
End Sub


Gruß
Rainer
...