Office-Fragen.de

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

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("C6 Big Grin

17")) 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

Thomasius

Flotter Feger

Thomasius

Flotter Feger

Thomasius

Thomasius