Sub Import()
ActiveWorkbook.XmlImport URL:=Einlesen, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A6$")
End Sub
Function Einlesen() As String
Dim Dialog As FileDialog
Set FileDialog = Aplication.FileDialog(msoFileDialoOpen)
With FileDialog
.Title = "Bitte gewünschte Daten auswählen"
.Button = "Importieren"
.Show
For Each vrtSelectedItem In .SelectedItems
XMLDateiEinlesen = vrtSelectedItem
Next
End With
End Function