Træk fra/ lig til formel

Højreklik på arkfane og indsæt følgende kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H9")) Is Nothing Then Exit Sub
Range("G9") = Range("G9") - Target
Target = ""
Range("H9").Select
End Sub

Det forstår jeg ikke helt. Hvordan sætter det ind i ark fanen?

Er der ikke en lettere måde at gøre det på. Jeg skal jo have "reglen"/ formlen for en del felter nedaf

Højreklik på arkfane, vælg vis programkode
indsæt kode i vindue til højre

hvad er en del felter?

Nu har jeg så sat det ind, men det virker ikke.

Det er cirka 40 felter pr ark

denne kode virker i felterne H9:H49 ret efter behov
den virker kun i det ark du indsætter den i
indsæt evt. i øvrige ark.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H9:H49")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, -1) = Target.Offset(0, -1) - Target
Target = ""
Application.EnableEvents = True
End Sub

Det er jo perfekt :)

Jeg har også prøvet formel og den virker perfekt. Hvad nu hvis I9:I49 cellen skal ligge til, hvordan ser formel så ud..

Glemte jeg skrive at H9:49 stadig skal trække fra.. Ved godt man kan skrive -5 istedet for, men ville godt have to felter..