Excel - Ergänzung
18.11.2014 10:52:20
tigub
Nun hab ich gegoogelt und bin fündig geworden...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngGeltungsBereich As Range
Set rngGeltungsBereich = Union(Range("A22"), Range("A22"))
If Not Intersect(Target, rngGeltungsBereich) Is Nothing And Target.Count = 1 Then
Target.Value = "X"
End If
Set rngGeltungsBereich = Nothing
End Sub
Doch stört mich daran, das beim verschieben (Zellmarkierung), Pfeil auf, ab, links, rechts, die genannte Zelle auch markiert wird...
Frage an Euch: Weiss jemand wie ich es ändern muss, dass es wirklich nur auf klick in die Zelle A22 ändert?
Vielen Dank für die Hilfe...
tigub