Kontrollkästchen

[Flotter Feger]

Hallo,

ich weiß ja nicht, was du da genau willst ... deine Erklärung und die Datei gehen ganz schön auseinander.

Aber ich würde schon mal das BeforeDoubleKlick-Event verwenden.
Und ich würde für die Kästchen keine Spielereien machen, sondern einfach nur die Schriftart auf WINGDINGS2 stellen.

"£" = leeres Kästchen
"R" = durchgekreuztes Kästchen
"S" = angehaktes Kästchen

Und dann diesen Code:

Code:

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

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

If Target = "R" Then Target.Offset(, -1) = ""
If Target = "S" Then Target.Offset(, -2) = "": Target.Value = "R"
End If

If Intersect(Target, Range("e6:e17,H6:I17,M6:N17,R6:S17,W6:X17")) 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

 
Kannst ein bisschen damit spielen.