Cel met gegevensvalidatie beveiligen

[Lauke]

Hallo,

Ik heb een probleem waar ik geen raad mee weet. Ik heb een cel met daarin via 'gegevens-validatie' een keuzelijstje. Het lijstje is netjes te kiezen en als ik iets in de cel type wat niet in de lijst voorkomt krijg ik de opmerking dat de waarde niet overeenkomt met de waarden in de lijst. Tot zover niets vreemds.

Nu merk ik echter als ik (dmv DELETE) de cel leeg maak ik geen melding krijg, terwijl er geen lege waarde in de lijst voorkomt.

Hoe kan ik voorkomen dat de cel 'leeg' blijft. Ik heb namelijk de waarde nodig in de bestandsnaam.

De cel blokkeren en het werkblad beveiligen resulteerd in het niet kunnen kiezen van een waarde.

Alvast dank

Lauke

 

[OctaFish]

Wat wil je nu? Moet de niet in de lijst voorkomende tekst wél gebruikt kunnen worden in de cel? Moet de cel leeg en ben je verplicht om iets uit de lijst te kiezen? En lukt dat laatste dan niet? En welk type Foutmelding heb je gebruikt?

 

[Lauke]

Hallo Octafish,

Ik heb een lijstje met waarden. Dááruit wil ik kiezen. Default is de eerste waarde "maak keuze". Als ik (of de gebruiker van de excelsheet) al dan niet per ongeluk op DELETE drukt is de cel leeg en is dus ook de
tekst "maak keuze" weg. Dát wil ik voorkomen.

Op het moment dat de CEL leeg is wordt de lege waarde in de bestandsnaam opgenomen en is er dus een sorteeroptie weg in de Windows Verkenner.

Ik kan wel iets verzinnen om de lege cel weer af te vangen, maar door de tekst "maak keuze" wordt de aandacht op de keuzelijst gelegd ipv dat men 'gewoon' begint met typen.

groet,

Lauke

 

[OctaFish]

Je herhaalt de vraag, maar geeft geen antwoord op de mijne Dus ik herhaal 'm nog een keer: welk type Foutmelding heb je gebruikt?

 

[Lauke]

Oeps, sorry,

Ik heb "foutmelding weergeven na het invoerren van ongeldige gegevens" aangevinkt. Stijl staat op "Stoppen" de rest is balanco op het tabblad "Foutmelding".

 

[Lauke]

Is er dan niemand die weet hoe ik kan voorkomen dat een cel met een validatie kan worden geleegd?

 

[AlexCEL]

Bekijk onderstaande eens. Voldoet dit?

Bekijk bijlage lauke1.xlsm

 

[Joske2000]

Met een module die gaat testen of de cel leeg is :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(2, 2) = "" Then
        MsgBox "Gelieve eerst Cel B2 in te vullen"
    End If
End Sub

Joske

 

[Lauke]

Zowel AlexCEL, als Joske2000 hartelijk dank voor de reactie!!

Beide optie werken, waarbij ik de optie van Alex ga gebruiken. Die vind ik persoonlijk gebruiksvriendelijker.

Ik ben geholpen. Dank jullie wel!! :thumb:

 

[AlexCEL]

Beide oplossingen zijn in essentie hetzelfde... mooi dat je geholpen bent. Succes ermee.

 

[VenA]

Het leuke van beide oplossingen is dat je ze kan combineren tot slechts één regel.

Private Sub Worksheet_Change(ByVal Target As Range)
If [B2] = "" Then [B2] = "Kies uit de lijst!"
End Sub

 

[AlexCEL]

Het elegant maken van een stukje code laat ik over aan de VBA specialisten... :d

 

[VenA]

Is wel lekker makkelijk zo.:d Jij en Joske2000 hadden bijna gelijktijdig de vraag ontrafeld (wat over het algemeen het moeilijkste deel is) en een oplossing gepost.:thumb: Als het werkt dan werkt het het. Dat het anders kan is ter leering en vermaak. (ook voor mij):d

 

[Lauke]

:thumb: