zoekende formule

[skhwarmond]

goedendag kan iemand mij helpen met het volgende probleem.

cel a1 staat 3 , cel a2 staat 20

dan de formule in cel b1; als er in cel b1 staat 3 dan moet hij de waarde overnemen van cel a2. staat
er iets anders in cel b1, dan neemt hij de waarde niet over van cel a2.

BVD

Erick

 

[Haije]

Als er B1 een waarde staat, kan er geen formule in staan

 

[JEC.]

Dat wordt een macro.
Zet deze achter het werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
  With Application
   .EnableEvents = False
      If Target.Address(0, 0) = "B1" Then
        If Target.Value = Target.Offset(, -1).Value Then Target.Value = Target.Offset(1, -1).Value
      End If
   .EnableEvents = True
 End With
End Sub