combobox

[yord]

Dag,

ik probeer al een tijdje een combobox te maken, maar het probleem is dat enkel de case else situatie wil invullen in het gevraagde vakje.

dit is mijn code :

Private Sub cmdok_Click()

End

End Sub

Private Sub Cmb_kwal_Click()

Cmb_kwal.DropDown

End Sub

Private Sub Userform_Initialize()

Dim staalkwaliteit$

Cmb_kwal.AddItem "S235"
Cmb_kwal.AddItem "S275"
Cmb_kwal.AddItem "S355"

Select Case staalkwaliteit
Case "S235"
I0 = 1
Case "275"
I0 = 2
Case "355"
I0 = 3
Case Else
I0 = 1
End Select

Select Case Cmb_kwal.Value
Case 1
staalkwaliteit = "235"
Case 2
staalkwaliteit = "275"
Case 3
staalkwaliteit = "355"

Case Else
staalkwaliteit = "235"
End Select

Sheets("blad1").Select


Range("h6").Value = staalkwaliteit
End Sub

Ik krijg dus in vakje H6 steeds 235 te zien.

Welke code moet ik toevoegen om dit te verhelpen.

bedankt

 

[Spiderman]

Hoi yord,

Plaats je volledige bestand hier eens (ff inzippen), dan kijk ik ff met je mee.

 

[yord]

Hoi,

hier is mijn bestandje. Ik heb mijn testversie doorgestuurd, dus het is maar iets simpel. Het is de bedoeling mijn keuze te kunnen maken tussen drie staalkwaliteiten.

 

[Spiderman]

Hoi yord,

Bij deze een werkende.

De manier zoals je je code had opgebouwd deed helemaal niets. De code die moest worden uitgevoerd stond niet onder de juiste 'events'.

Suc6

 

[yord]

heeeeeel fel bedankt voor de hulp

 

[Axel Hagg]

Het kan nog simpeler:

Option Explicit

Private Sub Cmb_kwal_Click()
Dim Staalkwaliteit As String

Select Case Cmb_kwal.ListIndex
Case 0
Staalkwaliteit = "235"
Case 1
Staalkwaliteit = "275"
Case 2
Staalkwaliteit = "355"
End Select
Sheets("blad1").Select
Range("h6").Value = Staalkwaliteit
End Sub

Private Sub Userform_Initialize()
Cmb_kwal.AddItem "S235"
Cmb_kwal.AddItem "S275"
Cmb_kwal.AddItem "S355"
End Sub