Gegevensvalidatie

[remmie63]

Hulp gevraagd: ik heb een Excelbestand waar ik in een cel (afdeling) werk met gegevensvalidatie vanuit een bronlijst. Dit werkt prima. Dit is echter één richtingsverkeer. Is het ook mogelijk dat er twee richtingsverkeer is. Nu selecteer ik in de lijst de waarde die ik nodig heb, echter als ik een nieuwe waarde (die nog niet in de bronlijst staat) wil toevoegen moet ik die eerst in de bronlijst aanmaken. Is er een mogelijkheid dat nieuwe waardes vanuit de cel automatisch ook in de bronlijst worden opgenomen?

Alvast dank voor het meedenken!

 

[Warme bakkertje]

Zonder VBA gaat dit niet lukken. Kijk maar eens op onderstaande link.
https://www.contextures.com/excel-data-validation-add-tables.html

 

[remmie63]

Dank voor je reactie! Het stuk over VB kom ik niet uit. Ik neem aan dat ik die code moet toevoegen? Want de Private Sub Worksheet_Change code is initieel leeg. Ook zou ik nu een lege cel beschikbaar hebben in de lijst van het data invoer blad. Die is er dus niet.

 

[emields]

Bedoel je zoiets?

 

[AHulpje]

Geeft bij mij de foutmelding "Object vereist" op

Set x = .[C2:.C100].Find(Target.Value, lookat:=xlWhole)

Het puntje voor .C100 is de boosdoener.
Zo werkt het bij mij wel:

 

[emields]

Dat . zal dan enkel in O365 werken?

 

[HSV]

Waarom blijf je niet in je ListObject?

Set x = .ListObjects(1).ListColumns(1).DataBodyRange.Find(Target.Value, lookat:=xlWhole)

 

[cow18]

het idee van HSV iets verder uitgewerkt en die tabel heeft de kostenplaats nu in een 2e kolom staan.

 

[HSV]

Trouwens;
Indien je Office 365 gebruikt maakt het niet uit of er dubbele gegevens komen in de tabel.
De validatie is ontdaan van dubbele gegevens.

@cow18,
Als je een tabel hebt van twee kolommen en je stopt er maar twee waarden in kan het ook zonder "resize".

.ListRows.Add.Range = Array(Target.Value, sKostenplaats)     'toevoegen

 

[Warme bakkertje]

@emields
TrimRange werkt inderdaad enkel voor O365.
Voorbeeldbestand uitgewerkt volgens voorbeeld van Debra.