hulp gevraagd om cel een opgegeven inhoud te geven aan de hand van aan code

[Hdenijs]

best,

iemand een ideetje hoe ik het volgende met een eenvoudige functie kan bekomen?
wanneer ik een cel een code ingeef dat in de cel rechts daarvan een omschrijving van die code komt te staan.
de omschrijvingen zou ik dan in een ander tabblad allemaal samen kunnen zetten
heb er bijlage bijgevoegd om te verduidelijken.

 

[Gerard2348]

Bedoel je dit

Bekijk bijlage test1.xlsx

MvG Gerard

 

[CaptainBri]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        Target.Offset(0, 1).Value = Range(Target.Value).Value
    End If
End Sub

Als je de cellnaam (D3 bijv.) in een van de cellen A2 t/m A15 tikt zal je de waarde van de cellnaam die je invoert in de cell ernaast te zien krijgen ^^

 

[Hdenijs]

Gerard2348 ,

dit is inderdaad exact wat ik zoek.

kan je eventueel de code beetje uitleggen ? dan leer ik er ook iets bij hé

 

[Gerard2348]

Tuurlijk

=ALS(A2="";"";VERT.ZOEKEN(A2;Blad2!$A$1:$B$22;2;ONWAAR))

eerste deel =ALS(A2="";""; betekend wanneer er in cel A2 niets staat dan moet deze cel B2 leeg blijven (hierin staat nl de formule). Wanneer er wel iets staat dan kijk je naar de waarde in A2 en die vergelijk je met de waarde in Blad2 Cel A1 t/m B22 het cijfer 2 achter B$22 betekend dat de waarde moet worden opgehaald uit de 2de kolom. onwaar wil zeggen dat de waarde exact moet overeen komen.

kijk hier eens;
https://support.office.com/nl-nl/article/VERTZOEKEN-0bbc8083-26fe-4963-8ab8-93a18ad188a1


Grt

 

[Hdenijs]

dank voor de uitleg