cel waarde is toets aanslag

[W Bloemendal]

Is het mogelijk om als waarde in een bepaalde cel (b.v A1) de waarde van de laatste in gave van een andere willekeurige cel te geven

 

[HSV]

Zeker.

Private Sub Worksheet_Change(ByVal Target As Range)
 range("a1") = target
End Sub

 

[W Bloemendal]

is precies wat ik moet hebben

 

[VenA]

Iets complexer om ook wijzigingen bij te houden

Private Ta
Private Tv
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Ta = Target.Address
    Tv = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> Tv Then
        Application.EnableEvents = False
        [A1] = "Vorige waarde van " & Ta & " was " & Tv
        [A2] = "Huidige waarde van " & Ta & " is " & Target
        Application.EnableEvents = True
    End If
End Sub