Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("U8:U17")) Is Nothing Then Exit Sub Target.Offset(14, 0) = Target.Offset(14, 0) - Target End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("U8:U17,U22:U31")) Is Nothing Then Target.Offset(0, -6) = (Target.Offset(0, -6) - Target) End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.