Cel uitlezen

[jarre2]

Goedemiddag,

Is het mogelijk om de formule in A4 zo aan te passen; als in kolom A een cel wordt geselecteerd, de naast gelegen cel, in dit voorbeeld B10 wordt uitgelezen in A4?

De vraag staat ook in het voorbeeld.

Gr,
Jarre

 

[AlexCEL]

Dat kan zeker, maar daar is VBA voor nodig. Zijn specialisten genoeg hier die dat zo maar klaar hebben.

 

[jarre2]

@Alexcel
We wachten af...

 

[AlexCEL]

Ben zelf ook een beetje aan het hobbyen geweest. Met deze code zou het moeten lukken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("A6:A25")) Is Nothing Then
    Range("A4") = Target.Offset(, 1)
 End If
End Sub

In bestandje: Bekijk bijlage Selectie cel v2.xlsm

 

[VenA]

Je hebt in jouw bestandje een andere wel werkende code staan:d

Je kan de offset ook zo schrijven.

Range("A4") = Target.Offset(, 1)

 

[AlexCEL]

Probleem bij mij was even de beveiligingsinstelling....

Heb de code nog even gewijzigd naar bovenstaande, is wat compacter.

 

[jarre2]

@AlexCEL

Het is bijna goed als ik met de cursor op een cel in kolom A gaat staan. Is het ook mogelijk om de selectie middels een x te laten plaats vinden?

 

[AlexCEL]

Je wilt dus selecteren via het zetten van een "x"? Dan is VBA niet nodig, en volstaat deze formule in A4:

=VERT.ZOEKEN("x";$A$6:$B$25;2;ONWAAR)

Hoewel uiteindelijk te moeilijk gedacht, is het toch wel een nuttige VBA-oefening geweest voor mij :d.

 

[jarre2]

@AlexCEL

Enorm bedankt voor de oplossing. Ik zocht het zelf in rij selekteren en dan de tweede kolom. Goed dat er mensen zijn die je kunnen helpen. We kunnen weer verder. Bedankt!

Groetend,
Jarre