Keuzelijsten

[tonp60]

Hallo

Als ik in Word in het veld NaamOntvanger een keuzelijst wil vullen dan gebruik ik onderstaande script.

Private Sub Document_Open()
NaamOntvanger.AddItem "Adrie"
NaamOntvanger.AddItem "Peter"
End Sub

Op het moment dat ik dan de keuze maak, worden de velden plaats en telefoon automatisch gevuld met de vermelde gegevens

Private Sub NaamOntvanger_Click()
If NaamOntvanger.Value = "Adrie" Then
    Plaats = "Lent"
    Telefoonnummer = "012-3456789"

ElseIf NaamOntvanger.Value = "Peter" Then
    Plaats = "Arnhem"
    Telefoonnummer = "098-7654321"
End If
End Sub

Dit wil ik ook graag toepassen in Excel, met dien verstande dat dan in cel D7 de keuzelijst gevuld moet worden en dat dan, afhankelijk van de keuze het veld I7 gevuld wordt met de Plaats en veld I8 met het Telefoonnummer.

Kan dit en wie kan mij daarbij helpen?

Groet,
Ton Peters

 

[jkpieterse]

Je kan ook met gegevens validatie, lijst optie werken in cel D7 en dan in I7 e I8 middels VERT.ZOEKEN de juiste gegevens erbij zoeken?

 

[emields]

Waarschijnlijk bedoel je zoiets?
ps Plaats in het vervolg zelf een voorbeeldbestand.

 

[tonp60]

Emields

Dat is precies wat ik bedoel. Ik ga er mee aan de slag.
De volgende keer zal ik er een voorbeeld bij doen.
Bedankt voor je hulp.

Groet,
Ton

 

[snb]

@tonp60

Je bent geen nieuweling in het forum.
Van alle gebruikers wordt verwacht dat ze VBA code tussen Code tags zetten.
Kun je dat svp nog even doen in https://www.helpmij.nl/forum/showthread.php/944457-Keuzelijsten?p=6161776&viewfull=1#post6161776

 

[tonp60]

snb

Ik weet niet wat je beodelt.

 

[snb]

Lees dan svp https://www.helpmij.nl/forum/announcement.php?f=5 goed door.

En kijk naar het verschil in https://www.helpmij.nl/forum/showthread.php/944457-Keuzelijsten?p=6161776&viewfull=1#post6161776

 

[tonp60]

Excuus. Wist ik niet, zal er de volgende keer rekening mee houden. De vraag is al beantwoord en afgesloten.

 

[snb]

Je kunt nog steeds je eerste bericht aanpassen.