Zelle auswählen mit Doppelklick
05.10.2016 16:15:32
MK
in meinem Code wird ein "X" eingetragen, sobald man in die Zelle klickt.
Jetzt habe ich das Problem, dass mit der TAB Funktion manchmal automatisch in die Zelle gesprungen wird und somit fälschlicherweise ein X eingetragen wird.
Daher möchte ich den Code so anpassen, dass erst bei erneutem "reinklicken" das X erscheint. Ist das möglich? bzw. hat jemand von euch eine Idee?
Ich danke im Voraus.
Viele Grüße
Meike
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich1
Dim Bereich2
Set Bereich1 = Application.Union([H11], [Y11], [Y15], [Y17], [Y19], [Y21], [Y23], _
[AA9], [AA11], [AA15], [AA17], [AA19], [AA21], [AA23], _
[Z28], [Z30], [Z32], [Z34], [Z36], [Z38], [Z40], _
[F45], [L45], [B47], [E47], [H47], [K47], [N47], [Q47], [T47])
Set Bereich2 = Application.Union([Y49], [Y51], [AA49], [AA51])
If Not Intersect(Target, Bereich1) Is Nothing Or _
Not Intersect(Target, Bereich2) Is Nothing Then
If Target = "x" Then
Target = ""
Else
Target = "x"
End If
End If
End Sub
Anzeige