combobox op formulier

[Doohan]

Beste Helper,

Ik heb in de bijlage een bestandje gedaan met 1 formulier waarop 1 combobox staat die word gevuld vanuit een werkblad.
zodra ik een keuze heb gemaakt zou ik willen dat de kolommen C tot met J de info in de tekstvakken presenteer als getal.

Op een of andere manier blijft dit voor mij een lastig stukje vba.

Als iemand mij een duwtje in de rug geeft kan ik weer verder sporten.

Alvast vriendelijk dank

 

[SjonR]

Private Sub cboGeluidbron_change()
    
    For i = 1 To 8
          Me.Controls("txthz" & i) = Sheets("MOTORGELUIDDATA").Range("B2:B100").Find(cboGeluidbron.Value).Offset(, i).Value
    Next i
End Sub

zoiets?

En ik zou het vullen van de combobox niet in een click-event zetten, maar in een UserForm_initialize()-event

 

[Doohan]

Dank Je SjonR,

Dit had ik even nodig

 

[HSV]

Je hoeft niet te zoeken als alle gegevens aanwezig zijn in de combobox.

Private Sub cboGeluidbron_Change()
 For j = 1 To 8
  Me("txthz" & j) = cboGeluidbron.Column(j)
 Next j
End Sub




Private Sub UserForm_Initialize()
 With Sheets("MOTORGELUIDDATA")
    cboGeluidbron.List = .Range("B4", .Cells(Rows.Count, 10).End(xlUp)).Value
    End With
End Sub

 

[Doohan]

toch nog een klein vraagje kan ik dit nog korter schrijven

Private Sub cboGeluidbron_Change()

   
  
            For j = 1 To 8
                Me("txtHz" & j) = cboGeluidbron.Column(j)
                Me("lblHz" & j) = cboGeluidbron.Column(j)
            Next j

End Sub

 

[HSV]

De naam van de combobox en textboxes korter maken.

 

[Doohan]

haha goeie

ik hoopte dat

Me("txtHz","lblHz" & j) = cboGeluidbron.Column(j)

zou werken maar nee.

 

[Doohan]

Ik zet hem maar op opgelost. De 1ste vraag is beantwoord, ik heb een werkende code

Nogmaals bedankt.

 

[snb]

Private Sub cboGeluidbron_Change()
  For j = 1 To 8
    Me("txtHz" & j) = cboGeluidbron.Column(j)
    Me("lblHz" & j) = Me("txtHz" & j)
  Next
End Sub

Maar 2 groepen controls met exact dezelfde gegevens is natuurlijk overbodig:
dit is voldoende:

Private Sub cboGeluidbron_Change()
  For j = 1 To 8
    Me("txtHz" & j) = cboGeluidbron.Column(j)
  Next
End Sub

 

[Doohan]

je heb gelijk SNB waarom ook nog eens de txtboxen vullen. Die wilde ik toch al voor een losse berekening gebruiken.
Topper.