Cel waarde weergeven bij selectie in rij

[bkoppers]

Weet iemand of het mogelijk is om onderstaande code aan te passen zodat wanneer ik een willekeurige cel uit bijv. rij 4 heb gelelecteerd, dan de tekst uit C4 in A1 wordt weergegeven en bij een cel uit rij 6 de tekst uit C6 enz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'In Cel A1 wordt tekst weergegeven de cel in kolom c is geselecteerd.
If Intersect(Target, Range("c:c")) Is Nothing Then Exit Sub

[a1] = Target.Value

End Sub

met vriendelijke groet,

Bianca

 

[edmoor]

De code die je hebt geplaatst is goed maar die moet je dan wel achter het betreffende werkblad zetten.

 

[bkoppers]

Die staat in het werkblad, echter cel C4 moet geselecteerd zijn om dan de waarde in A1 zichtbaar te krijgen, maar ik wil graag dat het niet uitmaakt welke cel ik in rij 4 selecteer en toch de waarde uit C4 zichtbaar in A1,
en als ik bijv. op R6 sta moet de waarde uit C6 zichtbaar zijn in A1.
en als ik bijv. op E7 sta moet de waarde uit C7 zichtbaar zijn in A1.

alvast bedankt

 

[Niels28]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("c:R")) Is Nothing Then [a1] = Cells(Target.Row, "C").Value

End Sub

Niels

 

[bkoppers]

soms is het antwoord zo simpel....

dank je wel.

 

[mvw64]

Misschien zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, "C") = "" Then Exit Sub
[a1] = Cells(ActiveCell.Row, "C")
End Sub