Jeg ved ikke om du er bekendt med VBA, men denne kode kan gøre det du ønsker.
Det er naturligvis vigtigt at din Excel tillade makroerne at køre, ellers virker det ikke.
Makroen er en form for regnemaskine, som lægger til og trækker fra automatisk.
For at lægge makroen ind, gør følgende:
ALT + F11
Klik på Ark1 i kolonnen til venstre
Sæt denne kode ind i området til højre.
'******************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Row >= 5 Then
Range("J" & Target.Row).Value = Range("J" & Target.Row).Value + Target.Value
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Target.Select
End If
If Target.Column = 9 And Target.Row >= 5 Then
Range("J" & Target.Row).Value = Range("J" & Target.Row).Value - Target.Value
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Target.Select
End If
End Sub
'******************************************************************
//Allan