hente data til en celle fra andet ark med betingelse

Lav en macro:

Gå til Funktioner -> Macro -> Visual Basic Editor (eller tryk Alt+F11)
Dobbeltklik på Ark1 (eller hvad dit ark nu hedder - det er at finde til venstre under Microsoft Excel Objects

Indsæt nedenstående kode:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
  If Target.Address = "$A$1" Then
    Select Case Cells(1, 1).Value
    Case "Ark2"
      Cells(2, 1).Value = "=Ark2!A2"
    Case "Ark3"
      Cells(2, 1).Value = "=Ark3!C4"
    Case "Ark4"
      Cells(2, 1).Value = "=Ark4!D4"
    Case Else
      MsgBox "Ugyldigt arknavn " & ActiveCell.Value, vbOKOnly, "Fejl 40"
      Cells(2, 1).Value = ""
    End Select
  End If
End Sub

Som du ser virker den ved, at macroen bliver kørt, når du ændrer på celle A1.
Hvis du skriver "Ark2" indsætter den celle A2 fra Ark2 i celle A2
Hvis du skriver "Ark3" indsætter den celle C4 fra Ark3 i celle A2
Hvis du skriver "Ark4" indsætter den celle D4 fra Ark4 i celle A2
Hvis du skriver noget andet får du en fejlmeddelse

Så er det bare at rette til, med hvilke celler der skal indsættes, og hvad arknavnene hedder...

/Martin

Hej Martin

Jeg kan godt se at det virker, men der skal beregnes 21 celler for hver forkortelse jeg skriver og der skal skrives op til 20 forskellige forkortelser hver gang, så det bliver mange cases der skal skrives før det kommer til at virke.
jeg havde forstillet mig at man kunne skrive i celle a2 kunne skrive noget der ligner:

=a1!b2

hvor der i a1 står navnet på det ark der skal hentes oplysninger fra. Dvs. det jeg kunne tænke mig at bruge var en formel der kunne skrive den rigtige forkortelse fra a1 og sætte endelsen !b2 bagefter i en hvilken som helst celle

Hvad med

=INDIREKTE(B1&"!A1")

Hvor der i celle B1 står f.eks. SV så vil den kigge i celle A1 i ark SV.

svaage: Jamen, nu du har gang i en macro, kan du jo kode dig ud af alle problemer! Jeg har bare ikke helt fattet hvad du mener, selvom du har forsøgt at skrive det meget tydeligt.

Du kan jo sagtens lave en lille funktion i din macro, der napper ark-navnet fra A1, og så indsætter fx. 20 henvisninger til bestemte celler i arket i 20 andre celler. Jeg er bare ikke med på hvad du mener - nu har du en macro der kan se hvilket arknavn du skriver i A1, og hente bestemte celler fra det arknavn. Og er det ikke præcis det du vil?

I superjap's forslag indsætter du et par $-tegn: =INDIREKTE($B$1&"!A1"), så kan denne formel koiperes til de celler du ønsker. Desværre er A1-referencen her indsat som en tekst, hvilket vil sige at den ikke automatisk tilpasser sig til de celler du kopierer den til. Så du skal efter kopieringen ind i hver enkelt celle og rette A1 til A2 - A3 - A4 osv.

Spændende diskussion... jeg har et lignende problem.... jeg tror du kan hjælpe mig martin_moth: http://www.eksperten.dk/spm/311288

zack: Har du ikke fået alle de svar du behøver? For mig at se har du da alt hvad du skal bruge...

Martin Moth og superjab deler hermed point
tak for hjælpem