Datum overnemen in ander tabblad

[patje8]

Hallo,

Ik zoek een formule/matrix om de stock van de containers bij te houden.
Al onze containers hebben een nummer en het is de bedoeling dat ik steeds weet wanneer welke container is vertrokken en terugkomt.

In tabblad 'Stock' heb ik een lijst met al de gevulde containers. Dus als er een container vertrekt wordt hier de datum ingevuld in kolom I.
Daarna zou deze datum automatisch bij de juiste container moeten komen in tabblad 'Containers' in kolom UIT. Wanneer de container binnenkomt wordt dit manueel aangepast in kolom IN.
Weet er iemand hoe ik dit kan oplossen?

 

[Timshel]

Deze code in de module van het werkblad

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Range
    
    If Target.Column = 9 Then
        With Sheets("Containers")
            Set Cl = .Columns(1).Find(Target.Offset(, -1).Value, LookAt:=xlWhole)
            If Not Cl Is Nothing Then .Cells(Cl.Row, Columns.Count).End(xlToLeft).Offset(, 1) = Target.Value
        End With
    End If
End Sub