Bei Doppelklick "X" mit Bedingung
19.06.2016 17:02:27
Sascha
Der untenstehende Code, erlaubt mir bei Doppelklick ein "X" in die jeweiligen Zellen eines Bereichs zu setzen. Bei erneutem Doppelklick wird das "X" wieder entfernt. Der Bereich ist auf ("A4") und ("B4") gesetzt.
Das funktioniert super. Nun möchte ich aber, falls in der Zelle A4 mit Doppelklick ein "X" gesetzt wird, und danach bei B4 per Doppelklick ein "X" gesetzt wird, dass das "X" in A4 wieder gelöscht wird, und umgekehrt.
Also quasi entweder bei A4 oder bei B4 ein "X". Hoffe ich habe mich einigermassen ausdrücken können.
Weiss jemand Rat?
Vielen Dank
Sascha
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("A4:B4")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Anzeige