Rij cellen weergeven in tekstbox

[kibus]

beste kenners,

Graag zou ik willen weten hoe ik als ik op een willekeurige cel sta mijn tekstbox laat vullen met de rij waarde van links na rechts (een soort lees venster) is dit mogelijk met vba of moet ik eerst gaan tekstsamenvoegen

alvast bedankt

 

[Demeter]

Bekijk deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    rij = activecell.Row
    Box2.Text = Range("A" & rij) & ", " & Range("B" & rij) & ", " & Range("C" & rij) & ", " & Range("D" & rij) & ", " & Range("E" & rij)
End Sub

Misschien iets te lang dradig maar het snelste waar ik op kan komen op dit momen,

 

[Demeter]

Deze is nog ietsjes beter. Wordt er gekeken of je selectie binnen een bepaald gebied valt waardoor er wel of niet je code wordt uitgevoerd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rij As Long

    If Not Intersect(Target, Range("A8:E15")) Is Nothing Then
        rij = activecell.Row
        Box2.Text = Range("A" & rij) & ", " & Range("B" & rij) & ", " & Range("C" & rij) & ", " & Range("D" & rij) & ", " & Range("E" & rij)
    End If

End Sub

 

[Wigi]

Dat is goed volgens mij.

Wel nog variabele declareren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rij As Long
    rij = ActiveCell.Row
    Box2.Text = Range("A" & rij) & " " & Range("B" & rij) & " " & Range("C" & rij) & " " & Range("D" & rij) & " " & Range("E" & rij)
End Sub

We horen het wel van de vraagsteller als dit niet goed is.

Wigi

 

[kibus]

Dank jullie wel super :thumb:

 

[Demeter]

Graag gedaan.
Hopenlijk heb je er wat van opgestoken.

Zeker het gedeelte:

If Not Intersect(Target, Range("A8:E15")) Is Nothing Then

Is extra aandacht waard.