Microsoft Excel

Herbers Excel/VBA-Archiv

Aktion bei Doppelklick | Herbers Excel-Forum


Betrifft: Aktion bei Doppelklick von: klausk
Geschrieben am: 28.07.2012 17:45:47

Guten Tag,

wie kann ich bei der Funktion Doppelklick erreichen, dass in der jeweils akiven Zelle ein großes X eingetragen wird. Und wenn schon ein X drin ist, dieses dann wieder verschwindet.

Vielen Dank schon mal

Klaus

  

Betrifft: AW: Aktion bei Doppelklick von: Hajo_Zi
Geschrieben am: 28.07.2012 17:48:37

Hallo Klaus,

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "X" Then
        Target = ""
    Else
        Target = "X"
    End If
    Cancel = True
End Sub
GrußformelHomepage


  

Betrifft: AW: Aktion bei Doppelklick von: hary
Geschrieben am: 28.07.2012 18:09:38

Hallo Klaus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 Target = IIf(Target = "", "X", "")
End Sub

@Hajo: So hatte ich es von Dir erwartet. ;-)
gruss hary


  

Betrifft: Vielen Dank Euch beiden o.T. von: klausk
Geschrieben am: 29.07.2012 19:12:42




Beiträge aus den Excel-Beispielen zum Thema "Aktion bei Doppelklick"