HERBERS Excel-Forum - das Archiv
Doppelklick-Ereignis
Larissa

Hallo,
ich habe hier ein Doppelklick-Ereignis und möchte gerne erreichen, dass nur ein "x" in den 3 Feldern angekreuzt sein kann. Dh, wenn man auf C10 klickt, sollen automatisch die Kreuze aus C11 und C12 verschwinden:


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

AW: Doppelklick-Ereignis
Erich

Hallo Larissa,
meist du das hier?


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

AW: Doppelklick-Ereignis
Uduuh

Hallo,


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


Gruß aus’m Pott
Udo

AW: Doppelklick-Ereignis
Larissa

Hallo,
Dankeschön, ich habe das Modul von Erich eingefügt und es hat prompt funktioniert.
Ich bin mir aber sicher, dass Deine Lösung auch funzt, Udo.
Vielen Dank an Euch 2,
Gruß,
Larissa