Getal automatisch met 20% verhogen na invoer

[pete80]

Ik wil een invoerveld (cel) hebben in excel. Als iemand hier een getal invoert moet er automatisch 20% bij worden opgeteld. Dit getal moet het ingevoerde getal dan vervangen in de de cel.

Kan iemand mij hierbij helpen?

 

[Ginger]

Pete80, Plaats dit codeblokje in de module van de sheet waarin je die verhoging wilt zien. Dit voorbeeld werkt op cel A1 van die sheet.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Target.Value * 1.2
        Application.EnableEvents = True
    End If

End Sub

Groet, Leo

 

[pete80]

code

hoe doe ik dat. Dit is nl nieuw voor mij.

 

[Ginger]

...Klik met rechts op de tab van de bewuste sheet. Kies in het pop-up menu voor View Code (onderste optie). De VBE (visual basic editor) wordt geopend in de sheetmodule van die sheet. Plak daar mijn codeblokje en sluit de VBE met het rode kruis.
Tik in cel A1 een waarde en zie het resultaat...

Groet, Leo