Microsoft Excel

Herbers Excel/VBA-Archiv

Doppelklick-Ereignis

Betrifft: Doppelklick-Ereignis von: Larissa
Geschrieben am: 04.12.2007 11:56:56

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

  

Betrifft: AW: Doppelklick-Ereignis von: Erich G.
Geschrieben am: 04.12.2007 12:12:30

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


  

Betrifft: AW: Doppelklick-Ereignis von: Uduuh
Geschrieben am: 04.12.2007 12:14:27

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



  

Betrifft: AW: Doppelklick-Ereignis von: Larissa
Geschrieben am: 04.12.2007 12:59:53

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