Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F29:I32,F34:I39,F41:I44,F46:I51,F53:I59,F61:I71,F73:I82,F84:I86,F88: _
I107,F108:I108") Is Nothing Then Exit Sub
Cancel = True
Target = IIf(Target = "X", "", "X")
If Target = "X" And (Target.Column = 8 Or Target.Column = 9) Then
MsgBox ("Bitte Bemerkung eintragen")
End If
End Sub
Private Sub Worksheet_Doublick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F29:I32,F34:I39,F41:I44,F46:I51,F53:I59,F61:I71,F73:I82,F84:I86,F88: _
I107,F108:I108") Is Nothing Then Exit Sub
Target = IIf(Target = "X", "", "X")
Cancel = True
End Sub
Hallo Leute,ich habe bei den 2 Programmierungen einen Leichtsinnsfehler.
Dazu muss gesagt werden dass Zeile 91-107 verbunden sind?
Erkennt ihr einen Fehler?
Vielen Dank!
Mit freunldichen Grüßen
Mert Conger