Gegevensvalidatie werkt niet na opstarten bestand

[Mvdnaald]

Beste,

Ik heb een bestand, waar ik na onderzoek op dit forum, een drop down menu heb kunnen maken die op meerdere cellen werkt met een beginletter. So far so good.
Echter nadat ik het bestand opgeslagen heb en heropen, werkt de validatie niet meer. De formule staat nog altijd in de gegevensvalidatie.
Zodra ik een cel selecteer en dan op gegevensvalidatie klik, daarna op OK, doet het drop down menu zoals ik het wil.
Hoe kan ik het zo krijgen dat dit direct bij het openen al zo is?

Alvast bedankt voor het meedenken,
Marc van der Naald

 

[HSV]

Dat is een bekend probleem na intrede van Excel 2007.
De formule ziet er ongeveer zo uit.

=VERSCHUIVING(naam;VERGELIJKEN(LINKS(D1;LENGTE(D1));LINKS(namen;LENGTE(D1));0);0;SOMPRODUCT(--(LINKS(namen;LENGTE(D1))=D1));1)

Met onderstaande zou het opgelost moeten zijn, behalve bij mij.

=VERSCHUIVING(naam;VERGELIJKEN(LINKS(D1;LENGTE(D1));LINKS(namen;LENGTE(D1));0);0;SOMPRODUCT(--(LINKS(namen;LENGTE(D1))=D1));1[COLOR=#FF0000]+0*nu()[/COLOR])

Ik gebruik daarvoor een stukje Vba code die dat probleem oplost als de validaties in de cellen d1 t/m d9 staan.
In Thisworkbook.

Private Sub Workbook_Open()
 Sheets("Blad2").Range("D1:D9").Validation.Modify xlValidateList
End Sub

 

[Mvdnaald]

Beste Harry,

Ik heb eea geprobeerd, echter beide oplossingen brengen het bij mij helaas niet.

Mvg,
Marc

 

[HSV]

Dag Marc,

Het is maar een voorbeeld wat ik heb geplaatst en moet enigszins aangepast worden aan het bereik (code) of gedefinieerde naam (formule).
Plaatst anders een voorbeeldbestand.

 

[Mvdnaald]

Hallo Harry,

Ik heb inderdaad de sheet aangepast en het celbereik aangepast, echter dan lukte het nog niet.

Groet,
Marc

 

[HSV]

Jammer dat het niet werkt.
Plaats eens een voorbeeldbestand.

 

[Mvdnaald]

Hierbij een zeer afgeslankte versie. Het gaat in dezen om de cellen C3:C17 op tab Scores

Bekijk bijlage Voorbeeldbestand.xlsm

 

[HSV]

Plaats deze eens in Thisworkbook.

Private Sub Workbook_Open()
With Sheets("scores").Range("C3:C17").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=OFFSET(naam,MATCH(LEFT(C3,LEN(C3)),LEFT(klienten,LEN(C3)),0),0,SUMPRODUCT(--(LEFT(klienten,LEN(C3))=C3)),1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

 

[PeterBijns]

Als ik na het openen van het bestand op F9 druk werkt de validatie weer.

Mogelijk kun je dit bewerkstelligen met een macro zodat dit automatisch gaat.

Groet, Peter

 

[Mvdnaald]

Beste Harry,

Ook met die code werkt het helaas niet. Werkte die bij jou wel? Ligt het dan aan een instelling bij mij?

@ Peter, ook na F9 doet ie het bij mij niet.

Hoe dan ook wil ik jullie al bedanken voor het meedenken.

Groet Marc

 

[HSV]

Hallo Peter,

Misschien is het versie afhankelijk.
In Excel 2003 werkt het altijd prima zonder iets te doen.
In Excel 2007 moeten we echter de validatieformule openen en sluiten alvorens het weer werkt.
F9 werkt helaas bij mij en velen niet.
Misschien vanaf Excel 2010 weer wel.

Een code daarvoor schrijven is niet zo moeilijk.
Misschien is dit weer iets specifiek voor jou.

Private Sub Workbook_Open()
 calculate
End Sub

 

[HSV]

hallo Marc,

Heb je de code in Thisworkbook gezet, en het bestand als ".xlsm" opgeslagen?
Hier werkt het feilloos.

Edit: bestand geplaatst!

 

[Mvdnaald]

Thanks Harry,

Dat was ik inderdaad vergeten. Hij werkt
Ik zal hem nu verder uitrollen over alle tabbladen en cellen.

Groet Marc

 

[HSV]

Graag gedaan Marc, en succes.