Verwijzing naar selectie

[BenVA]

Hoi,

Eerste post hier, aangenaam dus, allen.

Normaal vind ik alles wel via google op diverse fora terug, maar voor het volgende weet ik niet hoe te zoeken. Zodus..

Is het mogelijk in een cel te verwijzen naar de selectie die je maakt?

In een voorbeeld:

In cel D4 staat er "aap", in D5 "koe".

In cel cel A1 wil ik verwijzen naar mijn selectie, zodoende wanneer ik cel D4 selecteer er "aap" komt te staan in cel A1. Of wanneer ik D5 selecteer er "koe" komt staan in A1.

En zo uiteraard voor gelijk welke cel geselecteerd wordt.

Iemand een idee?

Alvast dank,

Groetjes,

Ben

[bucky]

Dat kan met deze code:

Wel ff de Range A10:C30 aanpassen aan je eigen behoefte.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A10:C30")) Is Nothing Then Exit Sub

[A1] = Target.Value
End Sub

 

bucky

4 november 2015 aangepast door bucky

[bucky]

Hier heb je nog een voorbeeld bestandje.

geeft geselecteerde celwaarde.xlsm

[BenVA]

Dank je Bucky, morgen eens proberen!

[BenVA]

Super, werkelijk bedankt Bucky! Werkt precies zoals ik het wou

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, mag je dit onderwerp  afsluiten.
Klik hiervoor bovenaan op modereer onderwerp en vervolgens op sluiten.