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
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.
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
Hallo,
schade, dass du meinen Vorschlag anscheind nicht mal ausprobieren möchtest.
Ist ja auch deine Entscheidung.
Danke code ist super
Lg Thomas