dropdownlist direct krijgen bij typen.

[markwat]

hoe kan ik bij het typen direct al een dropdownlist krijgen?
dan kan de dropbutton weg halen.
vervolgens kan ik met de pijlen de tekst kiezen.

groet p m

 

[edmoor]

Gebruik Gegevensvalidatie i.p.v. een tekstbox.

 

[markwat]

Edmoor,

nee dat kan niet, het is voor in een groot bestand wat al klaar is.
maar is het niet mogelijk?
het zijn ComboBoxen.

 

[edmoor]

Als dat bestand al klaar is hoef je niets meer te doen
Wat je wilt zou ik zo geen oplossiing voor hebben.

 

[AD1957]

zoiets? , code is van @JVeer

 

[edmoor]

Nu het documentje nog

 

[AD1957]

toegevoegd

 

[markwat]

oke, ik had verwacht dat het in de eigenschappen ingesteld kon worden...

dit word voor mij dan toch ietsssss te ingewikkeld..
hoe kan ik deze code dan combineren met wat ik hieronder hebt staan?

Private Sub ComboBox1_Change()
 With ComboBox1
   .List = Filter(Application.Transpose(Sheets("Blad1").Range("A1").CurrentRegion), .Value, True, vbTextCompare)
   .DropDown
 End With
End Sub
[CODE]

comboboxen vanuit anderbestand vullen
[CODE]Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim f As Range, Wb As Worksheet, msg As Long
msg = MsgBox("Ja is toevoegen, Nee is Verwijderen?", vbCritical + vbYesNoCancel)
Application.DisplayAlerts = False
With Workbooks.Open("C:\Dropbox\documenten\Excel omschrijving.xlsm").Sheets("blad2")
  If msg = vbYes And ComboBox1.ListIndex = -1 Then
     .Cells(Rows.Count, 1).End(xlUp).Offset(1) = ComboBox1.Value   'De cel die ge copieerd wordt
    .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A3") 'de cellen van blad2 die gesorteerd worden.
ElseIf msg = vbNo Then
         Set f = .Columns(1).Find(ComboBox1.Value, , , 1)
         If Not f Is Nothing Then .Rows(f.Row).Delete
    End If
 .Parent.Close -1
 Application.DisplayAlerts = True
End With
End Sub

 

[markwat]

nee ik begrijp dat ik niet het goede stukje had gegeven.
Hier moet het ingevoegd worden.
.List = Filter(Application.Transpose(Sheets("InvoerSheet").OLEObjects("ComboBox" & cO).Object.List = .Sheets("Blad2").Range("a2:a402").CurrentRegion), .Value, vbTextCompare)
alleen geeft deze een fout als ik het zo doet.

Private Sub Workbook_Open()
Dim cO As Long
Dim iO As Long

With GetObject("C:\Dropbox\documenten\Excel omschrijving.xlsm")
    For cO = 1 To 21
    .List = Filter(Application.Transpose(Sheets("InvoerSheet").OLEObjects("ComboBox" & cO).Object.List = .Sheets("Blad2").Range("a2:a402").CurrentRegion), .Value, vbTextCompare)
    .DropDown
    Next cO
    
    For iO = 21 To 90
       Sheets("InvoerSheet").OLEObjects("ComboBox" & iO).Object.List = .Sheets("Blad2").Range("c2:f202").Value
    Next iO


    Sheets("InvoerSheet").ComboBox91.List = .Sheets("Blad2").Range("h2:h30").Value
    Sheets("InvoerSheet").ComboBox92.List = .Sheets("Blad2").Range("j2:j30").Value
    UserForm2.ComboBox1.List = .Sheets("Blad2").Range("l2:l50").Value
    .Close
    End With
End Sub


'With ComboBox1
   '.List = Filter(Application.Transpose(Sheets("Blad1").Range("A1").CurrentRegion), .Value, True, vbTextCompare)
   '' .DropDown
 ' End With

 

[snb]

Wa-at ??

20 comboboxeen met dezelfde inhoud ??

70 comboboxen met dezelfde inhoud ?

Bedenk eerst een goed ontwerp.

PS. .Value verwijst in jouw code nergens naar; gelukkig heeft de compiler dat ook in de gaten.
het is gebruikelijk voor iteraties enkele letters te gebruiken: for j to ; for n to, for i to

 

[markwat]

Beste snb,

Het werkt al 8 jaar.
het zijn comboboxen die gevuld worden en wanneer ik tekst hebt wat nieuw is kan ik deze bij dubbel klikken opslaan.
alleen was ik nu bezig om bij enter of pijltjes naar de volgende combobox gaan.
maar dan heb ik een klein probleempje. dus dacht ik wanneer de lijst deels zichtbaar wordt kan ik met de muis direct selecteren en klaar.
ja, dus in elke combobox kan ik de zelfde tekst zetten..
de 20 bovenste zijn de omschrijving.
de 70 onderste is voor de materialen waar ook een prijs bij staat.

 

[snb]

Verdiep je liever in valdatie; die mogelijkheid heeft MS niet voor niets bedacht.

 

[AD1957]

@markwat,

Misschien moet je eens een goed gelijkend voorbeeldbestand plaatsen.