Informatie onder muiscursor

[Moche56]

Graag onthouden dat er geen domme vragen bestaan 
Is het mogelijk VBA te gebruiken om de informatie onder de muiscursor, na clicken, over te nemen in een andere cel.
Dus in Cel C10 staat een formule waarvan het resultaat “Huis” is.
Als ik op C10 met de muis click wil ik “Huis” in Cel A2 (als waarde) overnemen.
Is het duidelijk? En mogelijk?
Alvast bedankt.
Moché

 

[HSV]

Met een rechtermuisklik of een dubbelklik.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "C10" Then Range("A2") = Target.Value
 Cancel = True
End Sub

 

[Moche56]

Bedankt Harry,
Mijn vraagstelling was niet volledig.
De informatie is niet in een cel vast (C10) maar variabel in een range van +/- 10 cellen: C10, C11,....,C14 en D11,....D15
Ik wil clicken in een van deze cellen en de informatie (value) van die cel overbrengen naar een vaste cel: altijd A2.
Is dat mogelijk?
Grt,
Moché

 

[Moche56]

Hallo Harry,

Niet zo elegant maar toch een oplossing gevonden
Kan het simpeler?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address(0, 0) = "J1" Or Target.Address(0, 0) = "K1" _
 Or Target.Address(0, 0) = "L1" Or Target.Address(0, 0) = "M1" _
 Or Target.Address(0, 0) = "T1" Then Range("A4") = Target.Value
 Cancel = True
End Sub

Grt,
Moché

 

[HSV]

Hallo Moché,

ach, wat werkt, dat werkt.

Zo kan het ook:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("J1,K1,L1,M1,T1")) Is Nothing Then
   Range("A4") = Target.Value
   Cancel = True
 End If
End Sub

 

[Moche56]

Hallo Harry,
Dat bedoel ik met elegant :thumb:
Het werkt
Bedankt

Grt, Moché