Excel werkblad bij openen automatisch updaten

[VJJK]

Dag Forum,

Ik loop tegen het volgende aan en hoop dat jullie mij hiermee kunnen helpen.

Ik werk met een bepaalde inspectie matrix welke vanuit meerdere kanten te updaten is.

In bijgevoegd bestand is een voorbeeld hiervan gegeven. Via het "origineel" sheet, kan ik via dropdown een keuze maken. Deze keuze wordt dan automatisch getransponeerd naar sheet "lijst", welke een lijst oplevert van alle gekozen vormen van inspectie.

Als ik een aanpassing maak in de sheet "lijst" wordt deze automatisch doorgevoerd naar sheet "update".

Bekijk bijlage Omgekeerd inspectie excel naar acces.xls

Nu mijn vraag:

Ik kan via ACCESS de sheet "lijst" beinvloeden en ben ik bezig om Excel bij openen van de matrix alle wijzigingen in sheet "lijst" automatisch door te voeren naar de sheet "update" en deze complete geupdate sheet "update" te kopieeren naar de sheet "origineel".

Zodoende kunnen (andere) personen via de excel wijzigingen invoeren en kan ik deze verder oppikken in Acces en deze weer teruglaten vloeien naar Excel.

Ik weet dat het op een VBA code moet gaan in sheet This Workbook. startende of lijkende op onderstaand. Het ontbreek mij het stukje waar ik kan aangeven dat er op de Sheet "update" gewerkt dient te worden vanuit de sheet "Lijst" enige hulp heirbij zou wensenlijk zijn.

Alvast bedankt!!

Private Sub Workbook_Open()
 With Sheets("Update")
        .Range("A10:DQ5000").ClearContents
        For x = 2 To Range("A65536").End(xlUp).Row
                .Cells((Cells(x, 1).Value + 9), 1).Value = Cells(x, 1).Value
                .Cells((Cells(x, 1).Value + 9), 2).Value = Cells(x, 2).Value
                .Cells((Cells(x, 1).Value + 9), 3).Value = Cells(x, 3).Value
                .Cells((Cells(x, 1).Value + 9), 4).Value = Cells(x, 4).Value
                .Cells((Cells(x, 1).Value + 9), 5).Value = Cells(x, 5).Value
                .Cells((Cells(x, 1).Value + 9), 6).Value = Cells(x, 6).Value
                .Cells((Cells(x, 1).Value + 9), 7).Value = Cells(x, 7).Value
                .Cells((Cells(x, 1).Value + 9), 8).Value = Cells(x, 8).Value
                .Cells((Cells(x, 1).Value + 9), 9).Value = Cells(x, 9).Value
                .Cells((Cells(x, 1).Value + 9), 10).Value = Cells(x, 10).Value
                .Cells((Cells(x, 1).Value + 9), 11).Value = Cells(x, 11).Value
                .Cells((Cells(x, 1).Value + 9), 12).Value = Cells(x, 12).Value
                .Cells((Cells(x, 1).Value + 9), 13).Value = Cells(x, 13).Value
                .Cells((Cells(x, 1).Value + 9), 14).Value = Cells(x, 14).Value
                .Cells((Cells(x, 1).Value + 9), 15).Value = Cells(x, 15).Value
                .Cells((Cells(x, 1).Value + 9), Cells(x, 17).Value + 15).Value = Cells(x, 16).Value
        Next x
    End With

End Sub