Hoe cel op basis v/e andere celinhoud automatisch laten vullen zonder if-then

[jannemanvermeul]

Ik wil een cel automatisch laten invullen op basis van de inhoud van een andere cel.

Op het moment dat ik celA1 een 1 invul wil ik dat in celA2 automatisch de inhoud van cel B10 komt te staan.
Vul ik een 2 in in A1 dan moet in A2 de inhoud komen van C10.

Met if-then is dat simpel, maar dan ben ik de formule kwijt als ik A2 ga aanpassen.

Deze beweging zou moeten kunnen op moment van ingave of wijziging van cel1.
Nadat ik cel A2 hebt gewijzigd, moet die zo blijven staan totdat ik cel A1 weer wijzig.

Iemand enig idee ??

 

[wiki]

Met VBA

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If [a1].Value = 1 Then
Cells(2, 1) = Cells(10, 2)
End If

If [a1].Value = 2 Then
Cells(2, 1) = Cells(10, 3)
End If
End Sub

gr wim

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then [A2] = [a10].Offset(0, [a1])
End Sub

Met vriendelijke groet,


Roncancio

 

[jannemanvermeul]

Perfect opgelost

Laatste oplossing laat de inhoud staan na manuele wijziging, terwijl de eerste na wijziging van de tekst opnieuw de waarde gaat halen.

Dank jullie