Kæder til mange celler i andre excel filer

Altså... en brugerdefineret funktion kan gøre tricket :-)

Public Function getData(sti As Range, ark As String, cell As String) As String
    Dim oExcel As Excel.Application
    Dim oWorkbook As Workbook
   
    If sti <> "" Then
        Set oExcel = New Excel.Application
        Set oWorkbook = oExcel.Workbooks.Open(sti)
       
        getData = oWorkbook.Sheets(ark).Range(cell).Value
       
        oWorkbook.Close False
        oExcel.Quit
    End If
    Set oWorkbook = Nothing
    Set oExcel = Nothing
End Function


Jeg har her ikke nævnt noget om hastigheden :)

Hvis du sender mig en mail på ck@officekonsulenterne.dk så skal jeg sende en zipfil tilbage med eksemplet.

/Christian

hej Christian. Jeg håber du fik min mail igår.

Af en eller anden årsag vil den ikke opdatere cellerne hvis jeg ændre i dem.
Jeg forsøgte også at lave linket til de andre celler og det virkede ikke.

Jeg tror at det har med instillingerne i excel at gøre, men er ikke sikker

Jeg kigger på det :-)

/Christian

Nu virker det ;-) Tusind tak for hjælpen.