per Vlookup Daten aus externer Datei übertragen

Public Function RC1DateiEinlesen() As String
Dim oFileDialog As FileDialog
Dim SourceRange As Range
Dim DestinationRange As Range
Dim RC1Dateiname As String
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With oFileDialog
.Title = "Datei Einlesen"
.Filters.Add "XML-Dateien", "*.xml", 1
.ButtonName = "Einlesen"
If .Show = -1 Then RC1DateiEinl = .SelectedItems(1)
If RC1DateiEinl  "" Then
Workbooks.Open RC1DateiEinl
RC1Dateiname = ActiveWorkbook.Name
getMoreSpeed True
'läuft durch aber findet keine Werte (#Name)... Habe hier den Namen der Datei zur  _
Funktionskontrolle eingegeben wie das mit einer Variable zu lösen ist habe ich noch keine  _
Ahnung :D
'With Range("D5")
'.Formula = "=VLookup(" & Range("AB4") & "," & "'[AG 8-22 1-19.xml] _
Tabellen_Ausgabe'!$A$1:$W$15, 4, False)"
'.Formula = .Value
'End With
'läuft nicht durch... bekomme ständig entwerder "außerhalb Index"-Fehler oder "Objekt  _
erforderlich"
'Set SourceRange = Application.WorksheetFunction.VLookup(Range("AB4").  _
_
Value, Workbooks(RC1Dateiname).Worksheets("Tabellen_Ausgabe").Range("A1:P99").Value, 4, False)
'Set DestinationRange = ThisWorkbook.Sheets("Resultierend").Range("D5")
'DestinationRange.Value = SourceRange.Value
Workbooks(RC1Dateiname).Close savechanges:=False
getMoreSpeed False
End If
End With
End Function