Excel - Ergängzung

[tigub]

Hallo zusammen

Hab da Ein Problem und hoffe Ihr könnt mir da helfen...

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

[steve1da]

Hola,

nicht schön, die Frage in einem anderen Forum zu posten, ohne vorher auf die Lösungsvorschläge einzugehen....

http://www.herber.de/forum/messages/1393006.html

Gruß,
steve1da

[tigub]

Sorry
Möchte ja nur verschiedene Meinungen einholen, kann nicht ahnen, dass
die gleichen Leute in verschiednen Foren sind..

Sorry,,,,

tigub :29:

[atilla]

Hallo,

das geht mit dem Ereignis nicht.

Nimm lieber das Doppelklick oder Rechtsklick Ereignis der Tabelle.