Ich habe in einem Excelsheet einen Commandbutton eingerichtet, mit dem der User die Möglichkeit haben soll eine Datei auszuwählen. Nachdem die Datei ausgewählt wurde soll in dem aktiven Sheet ein SVERWEIS auf diese ausgewählte Datei erfolgen.
Leider bekomme ich dies aber nicht hin... Hier der Code:
Dim fd As FileDialog
Dim datei
Dim pfad
Dim i
Dim dateiname
Dim formel
On Error GoTo Fehler
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Add "Excel-Dateien", "*.xls", 1
fd.FilterIndex = 1
fd.InitialFileName = "E:\011 WESTCON\VORLAGEN"
If fd.Show = -1 Then
datei = fd.SelectedItems(1)
For i = Len(datei) To 1 Step -1
If Mid(datei, i, 1) = "\" Then Exit For
Next i
pfad = Left(datei, i)
dateiname = Right(datei, Len(datei) - i)
formel = "=SVERWEIS(U62;'" & pfad & "[" & dateiname & "]Einzelaufstellung'!$B$5:$I$226;8;FALSCH)"
Range("V62").Select
ActiveCell.Formula = formel
Könnt mir jemand helfen?
Gruß & Danke, Matthias