Hallo Camillo,
mit einem Makro so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strPfad As String, strDatei As String, strTabelle As String, strZelle As String
strPfad = Application.ActiveWorkbook.Path + "\" ' Aktuelle Datei Pfad
strDatei = "Daten.xls" ' Name der Datei
strTabelle = "Tabelle1" 'Name der Tabelle
strZelle = "R1C1" ' R = Row, C = Column (im Beispiel Zelle A1)
Range("A1") = Application.ExecuteExcel4Macro("'" & strPfad & "[" & strDatei & "]" & strTabelle & "'!" & strZelle)
End Sub
Gruß
fedjo