Lijst & Dropdown lijst --> Zelfde hoofdletters

[Gigs]

Een hele goedemorgen.

Ik heb het volgende probleem:

Ik heb een lijst met data (bijvoorbeeld EEN, twee, DRie, VieR) in de cellen: E1 t/m E4.
Hiervan maak ik een dropdown lijst in cel A1.
Wanneer een gebruiker TWEE invult is het eigenlijk de bedoeling dat er wordt gecontroleerd of de hoofdletters van het ingevulde woord "TWEE" gelijk is aan het woord "twee" in de vooraf aangemaakte lijst.
En wanneer ze niet hetzelfde zijn, de hoofdletters automatisch worden veranderd.

Ik hoop dat iemand de (waarschijnlijk VBA) oplossing heeft hiervoor.

Alvast bedankt!

 

[LucB]

Hallo Gigs,

Rechtsklik op het bedoelde Tabblad en kies Programmacode weergeven.
Plak deze code waar de cursor knippert.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Value = LCase(Target.Value)
End If
End Sub

 

[Wigi]

Dag Ryan

De oplossing van Luc is niet wat bedoeld wordt volgens mij. Die zet enkel om naar kleine letters, en dan nog wel elke keer. Dit doet het wel:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Set c = Range("E1:E4").Find(Target, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not c Is Nothing Then Target = c.Value
End If
End Sub

Wigi

 

[Gigs]

Thank you very much Luc en Wigi!

Waarschijnlijk lag het ook aan mijn vraagstelling, maar de oplossing van Wigi is precies wat ik bedoelde.

Gr, Ryan