Dim SheetQuantum As Worksheet
[color=green]'um sicher zu gehen, dass die vergleichsmappe auch geöffnet 
' ist
Workbooks.Open Filename:="Kopie von DataToQuantum mit.xls"
[color=red]Set[/color] SheetQuantum = Workbooks("Kopie von DataToQuantum" & _
  "mit.xls").Worksheets("Seat")
wert = SheetQuantum.Cells(15, 5)

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...