Hej hej.

Nedan kod fungerar fint, tänk på att när du använder onchange events så kan de trigga varandra i all evighet om du någonstans tänker fel.
mvh
Christian

Private Sub worksheet_change(ByVal target As Range)


Const CELL_ADDRESS = "$A$1:$A$4000"
Const CELL_ADDRESS2 = "$B$1:$B$4000"




If Not Application.Intersect(target, Range(CELL_ADDRESS)) Is Nothing Then

If Not IsNumeric(target.Value) Then
MsgBox "Only integers allowed"
Exit Sub
End If

If target.Value - target.Offset(0, 1).Value > target.Offset(0, 2).Value Then
target.Offset(0, 2).Value = target.Value - target.Offset(0, 1).Value
End If


ElseIf Not Application.Intersect(target, Range(CELL_ADDRESS2)) Is Nothing Then

If Not IsNumeric(target.Value) Then
MsgBox "Only integers allowed"
Exit Sub
End If

If target.Offset(0, -1).Value - target.Value > target.Offset(0, 1).Value Then
target.Offset(0, 1).Value = target.Offset(0, -1).Value - target.Value
End If

End If


End Sub