Hallo Didier,

Je hebt een nogal vreemde formule gebruikt voor gegevensvalidatie waarmee, eens een keuze gemaakt, de keuzemogelijkheden meteen worden beperkt tot... die gemaakte keuze. Je kan natuurlijk 'foute' keuzes nog rechtzetten door eerst de cel leeg te maken want dan krijg je terug alle mogelijkheden.

Als je met deze werkwijze tevreden bent kan het wel eenvoudig opgelost raken. De enige reden namelijk waarom gegevensvalidatie op dat ene blad wél werkt is omdat ze bij het openen van het bestand terug wordt ingesteld met vba, m.a.w. het zou anders nergens werken. Het kan dus volstaan om deze code uit te breiden naar de andere werkbladen. Je moet dat natuurlijk wel onder ThisWorkbook doen, want je hebt bij Blad6 ook een 'Private Sub Workbook_Open()' staan

Mvg,
Molly

Hallo Didier,

Het enige wat ik wel wil is dat je de mogelijkheden krijgt in de gegevensvalidatie op basis van de eerste ingevoerde letters

Dat had ik inderdaad al door, en het werkt ook wel met je formule. Om die te vereenvoudigen zou je vermoedelijk met de functie 'filter' aan de slag moeten, en die heb ik helaas niet in mijn Office-versie. En een workaround zou wel eens (het woord zegt het quasi zelf) tot wat omwegen kunnen leiden.
Aangezien het dus werkt misschien toch maar mijn eerdere suggestie uitvoeren? Dat is een eenmalige eenvoudige ingreep. Succes!

(Eerlijk gezegd zie ik ook niet meteen waarom het na sluiten en openen niet meer werkt - de gegevensvalidatie blijft namelijk wel staan - en dus is het best mogelijk dat ik er later nog eens terug induik...)

Mvg,
Molly

Hallo Didier,

ik vermoed dat MollyVH dit bedoeld:

De code in Blad6  bijplaatsen in de Sub Workbook_open() van ThisWorkbook:
Sub Workbook_Open()
    With Blad1.Range("A10:A40").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:= _
             "=OFFSET(naam,MATCH(LEFT(A10,LEN(A10)),LEFT(producten,LEN(A10)),0),0,SUMPRODUCT(--(LEFT(producten,LEN(A10))=A10)),1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
    ' Code uit blad6:
    With Blad6.Range("C5:C35").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:= _
             "=OFFSET(naam,MATCH(LEFT(C5,LEN(C5)),LEFT(producten,LEN(C5)),0),0,SUMPRODUCT(--(LEFT(producten,LEN(C5))=C5)),1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub
Test het anders even uit op een copie.

SoftAid              

Hallo Didier,

Als je al begonnen was met de aanpassingen, dan zou ik ze niet als verloren moeite beschouwen maar eerder als goede oefening, want het is vermoedelijk fundamenteel opgelost.
Ik blijf het een mysterie vinden (kijk waarschijnlijk stomweg ergens over) dat je formule werkte behalve wanneer het bestand tussendoor gesloten werd.
Dat ik er nog eens wou naar kijken kan dus niet echt een verrassing zijn.
De formule bevatte een nogal absurd gedeelte dat ik niet anders kan noemen dan zinloos rondjes draaien: er wordt gekeken naar de inhoud van een cel, dan naar het aantal karakters ervan, en vervolgens wordt het linkerdeel van die celinhoud genomen met dat aantal karakters, en dan kom je onvermijdelijk uit bij het beginpunt, die celinhoud dus
En het kan nog gekker: als de cel leeg is worden de NUL eerste karakters genomen van het getal NUL

Ik heb die formule dus herschreven, het overbodige eruit, elders wat bij of veranderd, en om de lege cellen op te vangen is er een ‘als’ bijgekomen.
Zoek de verschillen
VERSCHUIVING(Naam;VERGELIJKEN(LINKS(A10;LENGTE(A10));LINKS(producten;LENGTE(A10));0);0;SOMPRODUCT(--(LINKS(producten;LENGTE(A10))=A10));1)
ALS(A10="";producten;VERSCHUIVING(Naam;VERGELIJKEN(A10;producten;1)+1;0;SOMPRODUCT(--(LINKS(producten;LENGTE(A10))=A10));1))

Als test heb ik het op de eerste 2 werkbladen gedaan en het blijft werken. De vba-code om de validatie terug in te stellen is meteen verwijderd. Voor de andere werkbladen mag jij het doen (kopiëren en plakken dus).

O ja, je bestand bleef bij openen maar zeuren over een onvindbare koppeling, dat heb ik ook maar opgekuist.

Mvg,
Molly

Hallo Didier,

Jouw oplossing en formule werken perfect!

En toch... zat er nog een foutje in

Je bent hier, mogelijk zonder het ten volle te beseffen, een erg interessante vraag begonnen. Je had in je bestand een manier van gegevensvalidatie zitten die ik nooit eerder was tegengekomen, en waarvan ik me, hoe graag ik ook experimenteer , nooit had afgevraagd of dat kon.
Ik had daarom nu voor mezelf een basisvoorbeeldje gemaakt (om in mijn lade met voorbeeldjes te leggen ) en daarbij dus die fout opgemerkt: met de letter 'a' kreeg je namelijk nog geen keuzes.

Het is een vergissing die we vermoedelijk met zijn allen wel eens maken, ons laten leiden met wat we al aantreffen met name, in plaats van te gaan denken 'van scratch'

Mijn oefening heeft er toe geleid dat we nu wel een volledig correcte werking hebben, en met een veel eenvoudigere formule:
VERSCHUIVING(Naam;VERGELIJKEN(C10&"*";producten;0);0;AANTAL.ALS(producten;C10&"*");1)

Om je niet opnieuw hetzelfde werk te laten doen heb ik het maar meteen overal aangepast in versie 2. Je mag het natuurlijk altijd nog eens nakijken

Mvg,
Molly