Kontrollkästchen

[Thomasius]

Hallo guten Tag

 ich habe ein Problem, Wo ich Eure Hilfe mal wieder brauche.
will per klick 2 zellen nach links löschen . Hoffe Ihr habt eine tolle Idee.
habe mal ein Experiment hochgeladen wie ich es mir vorstelle.

mfg Thomas

[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.

[Thomasius]

Hallo 
Ich dachte eher an ein Kontrollkästchen wenn WAHR dann lösche E und D .
so , das ich zb in F nur anklicke.

Ich will kein Buchstaben schreiben müssen 

lg Thomas

[Flotter Feger]

Hallo,

schade, dass du meinen Vorschlag anscheind nicht mal ausprobieren möchtest.

Ist ja auch deine Entscheidung.

[Thomasius]

Danke code ist super
Lg Thomas

[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