Auf Zelle nur Doppelklick zulassen
17.06.2004 14:14:29
Torsten
ich zweifel gerade mal wieder an meinem Verstand :-(
Vor ein paar Wochen habe ich hier im Forum einen Code erhalten, der folgendes bewirkt: Mit einem Doppelklick auf eine Zelle wird die Zellfarbe entweder auf rot oder grün und der Inhalt auf "nein" oder "ja" gestellt. Hat auch funktioniert. Nur heute will's partout nicht klappen. Bei einem Doppelklick gelange ich in die Zelle und beim anschließenden Klick auf eine andere Zelle erscheint (die von mir über Extras/Gültigkeit usw. eingestellte) Meldung: "Nur Doppelklick erlaubt". Hat jemand eine Idee woran das liegen kann?
Vielen Dank für Eure Tips im voraus.
Gruß
Torsten
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' setzt bei Doppelklick ein "ja" in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("L8,L11,L14,L17,L20,L23,L26,L29,L32,L35,L38,L41,L44,L47,L50,L53,L56,L59,L62,L65")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "ja" Then
Target.Value = "nein"
Else
Target.Value = "ja"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub