Flette data automatisk mellem ark i excel

VBA er måske det der skal til. Men lidt flere detaljer/spilleregler og måske også formålet.

og så velkommen til Eksperten...

Det kommer lidt an på opgaven.

Hvis du markerer flere ark, sker ændringen i alle de markerede ark.

Hvis den bare skal hente noget fra en bestemt celle, kan du f.eks.: ='Ark2'!A1

Hvis det skal mere automatiseres, skal du nok over i VBA, det kan jeg desværre ikke hjælpe med.

markeringen af de forskellige ark virker og kan være en løsning. Men kan det virklig passe at Excel ikke kan finde ud af problematikken: ARK2fælles skrives der fx. en opgave i kolonne A og ansvarlig for denne opgave (fx JLU) står i kolonne B - og skal hele  derfor over i ARK1 JLU. Næste dag kunne der fx stå TEK i kolonne B og så skal opgaven flyttes over til ark3 TEK?

Jeg vil tro det kan klares via VBA............supertekst?

VBA er nærliggende, men eventuelt kan funktionen
INDIREKTE("[Arknavn]!"&ADRESSE(RÆKKE();KOLONNE()))
benyttes.

Jeg har uploadet et lille eksempel på, hvordan dette kan benyttes. De gulmarkerede områder er data, som hentes fra andre ark:

http://gupl.dk/63511/

Men tungen skal holdes lige i munden, hvis der er tale om mere omfattende dataområder!

Prøver at kreere et VBA-alternativ..

Rem Anbringes "Under arket Fælles" - højreklik / vis programkode /
Private Sub Worksheet_Change(ByVal Target As Range)
Rem hvis der er indtastet initialer (valide) i kolonne B og kolonne A er udfyldt
    If Target.Column = 2 And validIni(Target.Value) = True And Range("A" & Target.Row) <> "" Then
        opdaterArk Target.Text, Range("A" & Target.Row)
    End If
End Sub
Private Function validIni(initialer)
Dim ark As Worksheet
    For Each ark In ActiveWorkbook.Sheets
        If LCase(ark.Name) = LCase(initialer) Then
            validIni = True
            Exit Function
        End If
    Next
    validIni = False
End Function
Private Sub opdaterArk(ansvarlig As String, opgave As String)
Dim arkA, Ræk As Long, sidsteRæk As Long
    Set arkA = ActiveWorkbook.Sheets(ansvarlig)
    arkA.Activate
   
    With arkA
        .Range("A1").Select
        sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
        For Ræk = sidsteRæk To 65000
            If .Range("A" & Ræk) = "" Then
                .Range("A" & Ræk) = opgave
                Sheets("Fælles").Activate
                Exit For
            End If
        Next Ræk
    End With
End Sub

Lidt respons udbedes..