waarde overnemen van geselecteerde cel

[tom01234]

Morgen,

vraagje;

Ik wil graag dat bij het selecteren (alleen bij selecteren niet bij dubbelclick)van een cel uit een bepaalde range, a1:a15
De waarde van de geselecteerde cel overgenomen word in b1.


Kan iemand mij hiermee helpen?

alvast bedankt!

 

[VenA]

Zoiets?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A15")) Is Nothing Then [B1] = Target.Value
End Sub

 

[tom01234]

Dit werkt perfect!

Kan ik weer verder bedankt!

 

[tom01234]

macro starten bij selecteren van cel

Nog een kleine aanvulling,

zou ik op deze manier ook een macro kunnen starten? Dus bij selecteren van een cel.

Zelf onkundig met vba...

 

[Haije]

tom,

probeer dit eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A15")) Is Nothing Then Call macronaam
End Sub