Combobox selctie, cel laten vullen.

[Doohan]

Geachte helper,

Voor een geoefend programmeur waarschijnlijk een klein probleem maar voor deze simpele ziel een groot probleem.

Ik heb een simpele combobox zie hieronder

Private Sub UserForm_Initialize()

    'Vul combobox
    
    With ComboBox1
        .AddItem "Japans"
        .AddItem "Engels"
        
    End With
     
End Sub

Wat ik nu graag zou willen is dat als ik japans selecteer er een waarde 4 in cel B2 op blad3 wordt ingevuld, en als ik engels selecteer er een waarde 5 in cel B2 op blad3 word ingevuld.

Wie kan me ff opweg helpen.

Alvast Vriendelijk dank,

 

[edmoor]

Dat kan bijvoorbeeld met dit:

Private Sub ComboBox1_Change()
     Select Case ComboBox1.Text
        Case "Japans"
            Sheets("Blad3").Range("B2") = 4

        Case "Engels"
            Sheets("Blad3").Range("B2") = 5
     End Select
End Sub

 

[Doohan]

Helden

Geweldig. wat ik al dacht simpel. ieder zijn vak. Edmoor je bent mijn held THX

Groet
Martin