tekst in cel geeft in andere cel een waarde

Status
Niet open voor verdere reacties.

Toby1982

Gebruiker
Lid geworden
16 mrt 2019
Berichten
37
Goedemorgen,

Ik ben op zoek naar een code die als ik in bijvoorbeeld A1:A10 een tekst invoer(bijv. Jan, Piet of Henk) dit in B1:B10 een cijfer weergeeft.
Dus als ik in A1 Henk neerzet komt erin B1 bijvoorbeeld 5.

Alvast bedankt.

Jimmy
 
Die cijfers moet ergens vandaan komen uiteraard.
Maak er een lijstje van, dan kan je met verticaal zoeken werken en is er geen VBA voor nodig.
 
Uiteraard kan dat maar dan moet je iedere keer de code aanpassen als er wat bijkomt of wijzigt.
Je kan dat lijstje toch op een ander tabblad zetten?
Al dan niet verborgen?
 
Dan met zoiets achter het betreffende werkblad:
Code:
Private Sub Worksheet_Change(ByVal target As Range)
    If Not Intersect(target, Range("A1:A10")) Is Nothing Then
        Select Case LCase(target.Value)
            Case "jan":     target.Offset(, 1) = 1
            Case "piet":    target.Offset(, 1) = 3
            Case "henk":    target.Offset(, 1) = 5
        End Select
    End If
End Sub
 
Laatst bewerkt:
Top! precies zoals ik bedoelde.
Super bedankt voor de snelle reactie :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan