Kontrollkästchen

[Thomasius]

hallo brauche doch noch mal Hilfe

der code in 
Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert nicht mit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

                 könnt ihr da noch mal schauen was ich da falsch mache ????

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("e6:e17")) Is Nothing Then '--Aenderung in Range

If Target = "B" Then Target.Offset(, -1) = ""
If Target = "B" Then Target.Offset(, -2) = ""
End If

If Intersect(Target, Range("C617")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
    If Target.Column Mod 5 = 3 Then
    Debug.Print Target.Column Mod 2
        Target.Value = Target.Value + Cells(Target.Row, Target.Column + 1)
    Else
        Cells(Target.Row, Target.Column - 1) = Target.Value + Cells(Target.Row, Target.Column - 1)
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("e6:e17")) Is Nothing Then '--Aenderung in Range
Application.EnableEvents = False

If Target = "R" Then Target.Offset(, -1) = "00"
If Target = "R" Then Target.Offset(, -2) = "00"
End If

If Intersect(Target, Range("c6:d17")) Is Nothing Then GoTo ende
    If Target.Column Mod 5 = 3 Then
    Debug.Print Target.Column Mod 2
        Target.Value = Target.Value + Cells(Target.Row, Target.Column + 1)
    Else
        Cells(Target.Row, Target.Column - 1) = Target.Value + Cells(Target.Row, Target.Column - 1)
    End If
ende:
    Application.EnableEvents = True
    Cancel = True
End Sub

vielen Dank schonmal
lg Thomas