Clever-Excel-Forum

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

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

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

Sorry,,,,

tigub :29:

Hallo,

das geht mit dem Ereignis nicht.

Nimm lieber das Doppelklick oder Rechtsklick Ereignis der Tabelle.