Textbox vullen op basis van combobox

[weusty]

Ik heb een ComboBox in een UserForm. Ik wil dat als ik in de combobox "AAA" kies er in de tekstbox ernaast "100" komt te staan. Ik gebruik deze code:

With UserForm1
        If ComboBoxG5 = .Range("B:2") Then TextBoxG3 = "100"
        If ComboBoxG5 = .Range("B:3") Then TextBoxG3 = "200"
        If ComboBoxG5 = .Range("B:4") Then TextBoxG3 = "300"
        End If
End With

Hij doet het alleen niet!!

Groet Weust

 

[Radjesh Klauke]

1) 1e fout = Titel vraag is niet duidelijk;
2)

Select case  Combobox1.value
    Case "AAA" 
        textbox1.value = "100"
    Case "BBB"
        textbox1.value = "200"
End Select

 

[weusty]

1) 1e fout = Titel vraag is niet duidelijk;

Trekt wel aandacht

ga het proberen

 

[Wigi]

Trekt wel aandacht

Wat een bekrompen houding. Het doel van een forum is om iemand te helpen, maar veel belangrijker nog is dat VELE anderen door de zoekfunctie hun antwoord vinden zonder zelfs maar een vraag te stellen. Titels als die van jou zijn dan waardeloos.

Wigi

 

[weusty]

Wat een bekrompen houding. Het doel van een forum is om iemand te helpen, maar veel belangrijker nog is dat VELE anderen door de zoekfunctie hun antwoord vinden zonder zelfs maar een vraag te stellen. Titels als die van jou zijn dan waardeloos.

Wigi

Geef maar een goede titel, dan wijzig ik het wel even.

Maar ik ben er uit, heb het anders gedaan maar doet het nu goed:

Sub Akt()
With UserForm1
    If .ComboBoxH5.Value = "AAA" Then .TextBoxH3.Value = "100"
    If .ComboBoxH5.Value = "BBB" Then .TextBoxH3.Value = "200"
    If .ComboBoxH5.Value = "CCC" Then .TextBoxH3.Value = "300"
End With
End Sub

gtz

 

[Wigi]

Geef maar een goede titel, dan wijzig ik het wel even.

"Textbox vullen op basis van combobox"

Heb je direct de 2 belangrijkste termen van de vraag in de titel gezet

 

[weusty]

Hij wil hem in het forum niet wijzigen volgens mij.
Boven mijn eerste vraag wel.

groet