Trække på data imellem 2 regneark?

Måske dette link kan hjælpe dig:

http://www.eksperten.dk/spm/477516

Jeg kan ikke være til mere hjælp, idet Excel ikke er min boldgade.

Hvis du har begge regneark åbne samtidig kan du lave et link mellem disse.
Helt på samme måde som hvis det var mellem to faneblade.

Når der kommer en ny opdateret version, går du ind i -> Edit -> Links og her kan du vælge at "Change Source" til den nye version.

Jeg vil tro at det også er muligt i Excel 2000, men jeg kan ikke teste det - jeg kører også 2003.

Det kræver at data i den nye version står samme sted som i den gamle version.

Hvis du har begge regneark åbne på samme tid, laver du linket på følgende måde:

Stå i den celle i det regneark du vil have opdateret med en værdi fra det andet regneark.
Tast = i cellen
Skift over til det regneark, hvor værdien (eller teksten) er, og klik på den celle hvor oplysningen står og tryk "enter".
Hold øje med formellinjen - den indeholder nu en reference til filen og cellen. Når du lukker det regneark, hvor oplysningen kommer fra, ændres referencen til at indeholde et stinavn også, og du kan se kæden på den måde som beanbag skriver.

/hpo

Når du så har gemt regnearket med denne reference, vil du blive spurgt næste gang du åbner regnearket om du vil opdatere værdier fra kæderne.
/hpo

Følgende kode i VBA kan måske anvendes?


Private Sub Workbook_Open()

' Åbner passwordbeskyttet regneark 'OldFile.xls'
   
    Workbooks.Open Filename:="C:\TEST\OldFile.xls", Password:="1234"
   
' KOPIÉR ET HELT ARK (FANEBLAD)...
'---------------------------------
' Kopierer Ark1 i regnearket 'OldFile.xls' til regnearket 'NewFile.xls'

    Workbooks("OldFile.xls").Sheets("Ark1").Copy After:=Workbooks "NewFile.xls").Sheets(3)
   
' KOPIÉR ET CELLEOMRÅDE...
'-------------------------

' Vælger celleområde (A1:C20) i Ark2 i regnearket 'OldFile.xls' og kopierer dette til
' Ark1 i regnearket 'NewFile.xls" (indsætningspunkt: A1)
   
    Workbooks("OldFile.xls").Activate
    Workbooks("OldFile.xls").Sheets("Ark2").Select
    Range("A1:C20").Select
    Selection.Copy

    Workbooks("NewFile.xls").Activate
    Workbooks("NewFile.xls").Sheets("Ark1").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
   
' Lukker regnearket 'OldFile.xls'
   
    Workbooks("OldFile.xls").Activate
    ActiveWorkbook.Close

End Sub


Mvh. INNOTECK

beanbag + hpo:
Mange tak for hjælpen! :-)
Læg venligst et svar, så jeg kan tildele jer points. :-)

...sorry for den lidt lange svartid, men jeg har haft ret travlt på det sidste.
I var blot lagt i baggrunden, men bestemt ikke glemt! :-)

svar fra mig :)

/hpo

og mig ... :^)

beanbag + hpo:
Igen: Mange mange tak for hjælpen!