Hente data fra andet excelark

Du kna blot indsætte:

=Ark2!B2

Hvis du indsætter det i f.eks Ark1 celle B1, vil cellen vise data fra Ark2 celle B2

Hvis du ikke vil oprette kæde, men som du selv skriver vil bruge en makro kan denne anvendes - hvor mappe 1 er den der hentes til og mappe 2 den der hentes fra - begge i celle A1 og det kun er værdien du vil have over!

Sub HentCelleVærdi()

Application.ScreenUpdating = False

Dim ws As Workbook

    Workbooks.Open Filename:= _
        "C:\Dokumenter\Mappe 2.xls"
       
Set Active.Workbook = ws
   
    Range("A1").Select
    Selection.Copy
    Windows("Mappe1").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ws.Activate
    ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub

Eller sådan hvis det er fra en lukket workbook

Private Function GetValue(path, file, sheet, range_ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function


Sub test()
Dim x
x = GetValue("C:\", "tbc.xls", "Ark1", "$A$2")
MsgBox x
End Sub

OK- misforstod udtrykket "andet excelark"

Ja, det hentes fra en lukket workbook.

bak, den henter værdien, men får kun resultatet i en msgbox.
Jeg vil meget gerne have det i et felt.

brug min makro!

Jeg vil gerne undgå at åbne excelarket, fordi arket er meget stort og der er password på.

MsgBox x erstattes med

Range("A1") = x

Mange tak :-)

Mangler svar for at kunne give point

Point til Bak - hans makro!

deler gerne med stewen :-)

så bare en enkelt! ;-)

har delt 20/10
tak for hjælpen