Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range("C10,C11,C12") Then
Cancel = True
If Target = "x" Then
Target = ""
Else
Target = "x"
End If
End If
End Sub
Vielen Dank für Eure Hilfe,
Lieben Gruß,
Larissa
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C10:C12")) Is Nothing Then Exit Sub
Range("C10:C12").ClearContents
Target = "x"
Cancel = True
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C10,C11,C12")) Is Nothing Then
Cancel = True
If Target = "x" Then
Range("C10,C11,C12").ClearContents
Else
Range("C10,C11,C12").ClearContents
Target = "x"
End If
End If
End Sub