hente værdi i anden fil

Hvad med denne makro?

Dim Row, Column

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Set fs = CreateObject("scripting.filesystemobject")
    If Target.Column = 1 And (Row <> Target.Row Or Column <> Target.Column) And fs.fileexists(ActiveWorkbook.Path & "\" & Target & ".xls") = True Then
        Row = Target.Row
        Column = Target.Column
        Cells(Target.Row, 2).Formula = "=[" & Target & ".xls]sheet1!b" & Target.Row
    Else
        Column = 0
        Row = 0
    End If
End Sub

hmm ... den får jeg ikke til at virke - kan ikke få den til at køre.

Brug INDIREKTE()-funktionen.
=INDIREKTE("'["&A1&".xls]tabel'!$B$19")

Du får den med mellemrum mellem de enkelte tegn - det gør det lettere at læse:
=INDIREKTE( " ' [ " & A1 & " .xls]tabel ' ! $B$19")

jo, mit eneste problem er bare, at de andre filer skal være åbne. Er det ikke muligt at komme rundt om dette?

Forslag - koden anbringes i Ark1 i den fil, der skal modtage:

Dim xsti, antalRæk, xls, filNavn
Sub hentFraFiler()
Rem Hent aktuelle sti
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
Rem find antal rækker
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem Gennemløb af kolonne A
    For ræk = 1 To antalRæk
        If Cells(ræk, 1) <> "" Then
            On Error GoTo fejl
           
            filNavn = Cells(ræk, 1) + ".xls"
            Set xls = CreateObject("Excel.application")
            xls.Workbooks.Open xsti + filNavn
            Cells(ræk, 2) = xls.ActiveWorkbook.Sheets(1).Cells(19, 2)
           
            xls.Application.Quit
            Set xls = Nothing
        End If
    Next ræk
   
    MsgBox ("Gennemløb afsluttet")
    Exit Sub
   
fejl:
    Cells(ræk, 2) = "???"
    Resume Next
End Sub

som udgangspunkt, fint - så kommer det store problem :)

Det er ikke kun B kolonnen der skal fodres med tal, fra de eksterne ark - det gælder ydrligere 12 celler.

Hvilke celler?

indtil kolonne L - skal hente fra forskellige celler på sheet2(dog altid det samme sheet)

Det må du forklare mere præcist - hvilke celler skal hentes fra ark2 og hvor skal de indsættes?

Ok, jeg skal prøve at gøre det bedre :)

Det er altid kolonne A, der bestemmer filnavnet på "ark2", dvs. hvorfra data hentes. Lad os tage eksemplet, at A1 = "sovs", dvs. der skal hentes data fra sovs.xls, sheet1.

I B1 skal der stå værdien af sovs.xls!sheet1!B39
I C1 skal der stå værdien af sovs.xls!sheet1!A21
...osv.

Det er altid fra de samme celler i "ark2" at værdierne hentes.

Version 2:

Dim xsti, antalRæk, xls, filNavn
Sub hentFraFiler()
Rem Hent aktuelle sti
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
Rem find antal rækker
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem Gennemløb af kolonne A
    For ræk = 1 To antalRæk
        If Cells(ræk, 1) <> "" Then
            On Error GoTo fejl
           
            filNavn = Cells(ræk, 1) + ".xls"
            Set xls = CreateObject("Excel.application")
            xls.Workbooks.Open xsti + filNavn
            Cells(ræk, 2) = xls.ActiveWorkbook.Sheets(1).Cells(39, 2)  'B-ræk <- B39
            Cells(ræk, 3) = xls.ActiveWorkbook.Sheets(1).Cells(21, 1)  'C-ræk <- A21
Rem o.v.s. - insæt selv eftersamme princip
           
            xls.Application.Quit
            Set xls = Nothing
        End If
    Next ræk
   
    MsgBox ("Gennemløb afsluttet")
    Exit Sub
   
fejl:
    Cells(ræk, 2) = "???"
    Resume Next
End Sub

Kan jeg ikke ændre dette :
Cells(ræk, 2) = xls.ActiveWorkbook.Sheets(1).Cells(39, 2)
til

Cells(ræk, 2) = xls.ActiveWorkbook.Sheets("kalkulation").Cells(39, 2)
da sheet'et hedder "kalkulation" - eller er jeg gal på den ;)

Det skulle være OK - er du ellers ved at være tilfreds?

ja tak, det virker fint. Smider du et svar, så vi kan afslutte den?

Godt - så får du et svar