Meerdere kolommen vullen uit keuzelijst.

[Woffels]

Goede morgen,

Ik heb een Excel vraagje. Misschien kunnen jullie mij helpen.

In de toegevoegde file zie je een keuzelijst die zn gegevens uit blad2 haalt. Zoals je ziet zijn dat 4 kolommen. De output van de keuze wordt gepresenteerd in slechts één cel (B7). Weet je of het mogelijk is om de andere gegevens uit de dropdown in C7, D7 en E7 te krijgen.

 

[Haije]

Woffels,

ik denk dat je dit bedoelt.

 

[Woffels]

Woffels Meerdere kolommen vullen uit keuzelijst.

Is het niet mogelijk dit te doen vanuit de dropdown die er al staat. Ik wil namelijk dat de user, als hij de dropdown clickt, ook de rest van de data ziet uit die tabel.

 

[VenA]

Jouw in de OP gestelde vraag en de vraag in het voorbeeldje spreken elkaar tegen. Ook wordt er in B7 niets gepresenteerd als er iets gekozen wordt. Dus wat het worden moet?

Mogelijk zoiets?

 

[Woffels]

Ja, precies wat ik wil.

Bedankt

 

[Woffels]

Nog een vraag over de keuze lijsten.

Is het mogelijk een keuzelijst te verbergen die pas verschijnt als je op een bepaalde cel klikt? De keuze lijst verdwijnt weer als de cel niet meer actief is.

 

[VenA]

Met een dubbelklik in A5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$A$5" Then Me.ComboBox1.Visible = Not Me.ComboBox1.Visible
  Cancel = True
End Sub

 

[Woffels]

Meerdere kolommen

Werkt prima, bedankt.

Nu wil ik, als ik op de dropdown klik, dat altijd de bovenste keuzemogelijkheid waarvan de dropdown zn data haalt bovenaan staat. Nu staat de laatst gekozen keuze bovenaan en moet de gebruiker eerst naar boven scrollen.

 

[VenA]

Probeer het zo eens

Private Sub ComboBox1_Change()
    t = ComboBox1.ListIndex + 1
    ar = [keuzelijst]
    If t > 0 Then [b7].Resize(, 4) = Array(ar(t, 1), ar(t, 2), ar(t, 3), ar(t, 4))
End Sub

en

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$A$5" Then ComboBox1.Visible = Not ComboBox1.Visible
  ComboBox1.ListIndex = -1
  Cancel = True
End Sub

 

[Woffels]

Uitklappen combobox.

Werkt steeds beter. Is het ook mogelijk de combobox automatisch te laten uitklappen als ik dubbelklik?

 

[VenA]

Maak even een eigen vraag aan ipv in iemand anders draadje een vraag te stellen.

 

[mattes62]

Maak even een eigen vraag aan ipv in iemand anders draadje een vraag te stellen.

OK dank