Keuzelijst

[jesbo]

Goeiemorgen,

Ik wil graag een keuzelijst maken, met in mijn geval een lijst van typen profielen.
Wanneer ik een van deze profielen selecteer, zou ik graag willen dat daaronder dan de bijhorende gegevens komen te verschijnen.

In de bijlage vinden jullie de sheet met de gegevens.

Is dit mogelijk en zo ja, weet een van jullie dan hoe?
Ik heb al geprobeerd om iets dergelijks op het internet te vinden, maar ik kwam nergens op uit.

Ik wacht met smart op een antwoord!
Alvast bedankt.

Groetjes,
Jesse

Bekijk bijlage Gegevens.xlsx

 

[Cobbe]

Is dit de bedoeling?

 

[Hans123]

of zoiets?

Bekijk bijlage Gegevens.xlsm

 

[jesbo]

of zoiets?

Bekijk bijlage 233487

Super Hans, dit is eigenlijk nog beter dan dat ik bedoelde haha!
Alleen hoe krijg ik dit voor elkaar?

 

[jesbo]

Is dit de bedoeling?

Bedankt Cobbe, dit was inderdaad de bedoeling.

 

[Hans123]

Kijk even in de macro code van het userform.

Private Sub UserForm_Initialize()
    For kolom = 2 To 10
        ComboBox1.AddItem Cells(1, kolom).Value
    Next kolom
    ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
    Text_H = Range("B1").Offset(1, ComboBox1.ListIndex).Value
    Text_B = Range("B1").Offset(2, ComboBox1.ListIndex).Value
    Text_Tw = Range("B1").Offset(3, ComboBox1.ListIndex).Value
    Text_Tf = Range("B1").Offset(4, ComboBox1.ListIndex).Value
    Text_lx = Range("B1").Offset(5, ComboBox1.ListIndex).Value
End Sub
Private Sub Button_Cancel_Click()
    UserForm1.Hide
   
End Sub
Private Sub Button_OK_Click()
       Range("b10").Value = ComboBox1.Value
       Range("b11").Value = CDbl(Text_H)
       Range("b12").Value = CDbl(Text_B)
       Range("b13").Value = CDbl(Text_Tw)
       Range("b14").Value = CDbl(Text_Tf)
       Range("b15").Value = CDbl(Text_lx)
       UserForm1.Hide
End Sub

De sub userform_initialize zorgt ervoor dat de combobox de types die je kan kiezen in de lijst gezet worden.Hierbij wordt er in een loop de kolommen 2 t/m 10 de waarde van rij 1 toegevoegd.
Indien de combobox verandert wordt zal de sub combobox_change de waarde op basis van de keuze in de textvelden zetten. (Listindex bevat het item.nr dat gekozen is (dus niet het type dat gekozen is maar de positie van dit type in de rij)

Sub Button_ok schrijft na het drukken van de OK knop de waarde naar je werkblad naar de cellen die opgegeven zijn.

 

[jesbo]

Kijk even in de macro code van het userform.

Private Sub UserForm_Initialize()
    For kolom = 2 To 10
        ComboBox1.AddItem Cells(1, kolom).Value
    Next kolom
    ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
    Text_H = Range("B1").Offset(1, ComboBox1.ListIndex).Value
    Text_B = Range("B1").Offset(2, ComboBox1.ListIndex).Value
    Text_Tw = Range("B1").Offset(3, ComboBox1.ListIndex).Value
    Text_Tf = Range("B1").Offset(4, ComboBox1.ListIndex).Value
    Text_lx = Range("B1").Offset(5, ComboBox1.ListIndex).Value
End Sub
Private Sub Button_Cancel_Click()
    UserForm1.Hide
   
End Sub
Private Sub Button_OK_Click()
       Range("b10").Value = ComboBox1.Value
       Range("b11").Value = CDbl(Text_H)
       Range("b12").Value = CDbl(Text_B)
       Range("b13").Value = CDbl(Text_Tw)
       Range("b14").Value = CDbl(Text_Tf)
       Range("b15").Value = CDbl(Text_lx)
       UserForm1.Hide
End Sub

De sub userform_initialize zorgt ervoor dat de combobox de types die je kan kiezen in de lijst gezet worden.Hierbij wordt er in een loop de kolommen 2 t/m 10 de waarde van rij 1 toegevoegd.
Indien de combobox verandert wordt zal de sub combobox_change de waarde op basis van de keuze in de textvelden zetten. (Listindex bevat het item.nr dat gekozen is (dus niet het type dat gekozen is maar de positie van dit type in de rij)

Sub Button_ok schrijft na het drukken van de OK knop de waarde naar je werkblad naar de cellen die opgegeven zijn.

Ik denk dat ik 'm enigzinds begrijp. In de code van de combobox is...:

Text_H =
Text_B =
Text_Tw =
Text_Tf =
Text_lx =

Wat in de box komt te staan aan de linker kant en de rest zijn de codes voor de waarden die aan de andere kant komen te staan?
Alleen snap ik niet hoe het bestand nu snapt waar de tabel ophoud aangezien er bij de range alleen B1 word ingevoerd.