drop down menu met vrij invulveld

[Jubu]

Is het mogelijk om een dropdown menu te maken met een vrij invulveld (dus geen vooraf vastgestelde waard)?
Hoe kun je dit doen?

 

[JEC.]

https://reinder.eu/blog/excel-vba/hoe-maak-ik-een-listbox-in-excel

Bij gegevensvalidatie kun je dat vinden

 

[Jubu]

Hi, dank voor het meekijken en meedenken.
Wat ik graag zou willen is dat degene die de vraag beantwoordt, naast de vaste keuzes in de lijst (appel banaan sinaasappel), in dat veld ook nog elk willekeurig ander stuk fruit (voor jou dus kiwi) in kan typen en dat er dan juist geen foutmelding komt. Weet je of dat mogelijk is?

En is het in excell ook mogelijk om in een veld/cel een dropdown menu te maken waarin je meerdere keuzes kunt aanvinken? Dus bijvoorbeeld dat ik zowel appel als banaan kan aanvinken en dat beide in de doelcel genoteerd worden? Dus in jouw voorbeeld dat op tabblad in in B2 komt te staan 'appel, banaan'?

Alvast bedankt!

 

[JEC.]

Dat kan, op die link kun je t vinden. Gegevensvalidatie van de cel, dan derde tab:foutmelding -> foutmelding weergeven..... etc uitvinken

 

[Ad Becude]

zie hier.

 

[Jubu]

En is het in excell ook mogelijk om in een veld/cel een dropdown menu te maken waarin je meerdere keuzes kunt aanvinken? Dus bijvoorbeeld dat ik zowel appel als banaan kan aanvinken en dat beide in de doelcel genoteerd worden? Dus in jouw voorbeeld dat op tabblad in in B2 komt te staan 'appel, banaan'?

Okee, dank je JVeer! En weet je ook of dit kan?

 

[JEC.]

Dit misschien?

https://support.office.com/nl-nl/ar...invoegen-ee579158-e894-4c9b-bce8-6a579277b7ae

 

[popipipo]

Hier een bestandje uit mijn archief.
(auteur onbekend)

 

[VenA]

Het gebruik van Instr vind ik een beetje listig als je vrije invoer toestaat en de validatielijst niet bekent is.

obv het bestand in #5. Beter kan je zelf een bestand plaatsen want nu zal je van alles aan moeten passen om het werkend te krijgen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "E1" Then
    Application.EnableEvents = False
    c00 = Target.Value
    If c00 <> "" Then
      Application.Undo
      c01 = Target.Value
      If Len(c01) > 0 Then
        y = Split(c01, ",")
        For j = 0 To UBound(y)
          If y(j) = c00 Then b = True
          c02 = IIf(y(j) = c00, c02, c02 & "," & y(j))
        Next j
      Target.Value = IIf(Left(c02, 1) = ",", Mid(c02, 2), c02) & IIf(b, "", "," & c00)
       Else
        Target.Value = c00
      End If
    End If
    Application.EnableEvents = True
  End If
End Sub

@popipipo, volgens mij gaat het in jouw bestandje niet helemaal lekker met de komma's.

 

[popipipo]

Waar gaat het dan mis??

 

[VenA]

Ik had van aa a gemaakt en dat gaf wat vreemde effecten.

 

[popipipo]

Zie het nu ook

Heeft te maken met de lengte, met 1 of 2 karakters gaat het soms mis

 

[Jubu]

Het gebruik van Instr vind ik een beetje listig als je vrije invoer toestaat en de validatielijst niet bekent is.

obv het bestand in #5. Beter kan je zelf een bestand plaatsen want nu zal je van alles aan moeten passen om het werkend te krijgen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "E1" Then
    Application.EnableEvents = False
    c00 = Target.Value
    If c00 <> "" Then
      Application.Undo
      c01 = Target.Value
      If Len(c01) > 0 Then
        y = Split(c01, ",")
        For j = 0 To UBound(y)
          If y(j) = c00 Then b = True
          c02 = IIf(y(j) = c00, c02, c02 & "," & y(j))
        Next j
      Target.Value = IIf(Left(c02, 1) = ",", Mid(c02, 2), c02) & IIf(b, "", "," & c00)
       Else
        Target.Value = c00
      End If
    End If
    Application.EnableEvents = True
  End If
End Sub

Bovenstaande is voor gevorderden denk ik? ;-) Dank allen voor het meedenken.