Hi,
Mijn bedoeling is om in een cel een waarde te typen en dat deze waarde met een formule bewerkt wordt die in dezelfde cel is staat.
bv. Als ik in cel A1, 25 type en A2 bevat reeds een formule dan wil ik eigenlijk het resultaat van 25*A2 in de cel A1 zien

Hierbij alvast een code-voorbeeldje....Private Sub Worksheet_Change(ByVal Target As Range)
'Let op! Zonder de 'binbusy' toevoeging zal de procedure zichzelf in een
'oneindige loop blijven aanroepen (engels: recursion)

Static blnbusy As Boolean
   
    If blnbusy Then Exit Sub
    blnbusy = True
    If Not Intersect(Target, Range("A1")) Is Nothing And Target.Offset(0, 1).HasFormula Then
        Target.Value = Target.Value * Target.Offset(0, 1).Value
    End If
    blnbusy = False
   
End Sub
Plaats dit in een worksheet module van je VBE. De code werkt als volgt: Indien er een formule in cel B1 staat, zal de - daarna - ingetikte waarde in cel A1 worden vermenigvuldigd met het resultaat van cel B1
Tevens gebruik van de functie 'binbusy' om recursion te voorkomen (zie code).

Let op! Er zit nog géén foutafhandeling in. Dus het intikken van een formule die een error geeft of 'tekst' als resultaat, zal de code laten vastlopen!

Groet, Leo

P.s. voor het gemak óók maar een voorbeeldworkbook als bijlage...

Molly, wat heb je dan in cel B1 staan? Je MOET hier wel een formule plaatsen, anders werkt de code niet! Het is zo in elkaar gezet nav je 1e post...

bv. Als ik in cel A1, 25 type en A2 bevat reeds een formule

Het werkt trouwens maar één kant uit. Dus het aanpassen van de formule in cel B1, zorgt er niet voor dat de waarde in cel A1 wordt aangepast.
Het kan ook zijn dat je security-level op hoog staat. Je moet wel je Macro's kunnen starten, anders werkt het ook niet.

Ik zie net op internet dat de recursion ook makkelijker opgelost kan worden.Sub()
Application.EnableEvents = False
Hier de code!
Application.EnableEvents = True
End sub...

Groet, Leo