Userform: Update a Text Label when i click Value in Combobox

[NessPJ]

Hello there,

I'm trying to show a value/text in a Label on my Userform when the user clicks a certain value in a Combobox.

Worksheets have a _change value Event. Is there something similar for a Userform? I can't seem to find it...

This is some of the code i use: [Menu.Artikel1 is my Combobox]

Dim RowART1 As Long
Dim LastRowTagART1 As Long
Dim ArtikelOmschrijving As String

LastRowTagART1 = ThisWorkbook.Sheets("Parameters").Range("M22").End(xlUp).Row


'De inhoud voor lijst met Artikelen wordt dynamisch opgebouwd (Combobox Artikel1).

    With Menu.Artikel1
    For RowART1 = 4 To LastRowTagART1
    .AddItem Sheets("Parameters").Range("M" & RowART1).Value
    Next RowART1
    End With

Something like this should be in a VBA routine/event when the Value changes and the field(s)/form is updated, i think: [Menu.ArtikelOmschrijving is my Text Label]

    'Find(Searchstring As String, SearchSheet As String, SearchColumn As String)
 
    ArtikelOmschrijving = Find(Menu.Artikel1.Text, "Parameters", "M")
 
    Menu.ArtikelOmschrijving.Caption = ArtikelOmschrijving

Does anyone know how to do this?

 

[Saurabhj]

Hi, you can write VBA on Combobox change event in Userform itself.

Private Sub Artikel1_Change()
If Artikel1.Value = "valuetocompare" Then
    ArtikelOmschrijving.Caption = "ChangedText"
End If
End Sub

For more information on Userform:
How to create Userform

 

[NessPJ]

Hi, you can write VBA on Combobox change event in Userform itself.

Private Sub Artikel1_Change()
If Artikel1.Value = "valuetocompare" Then
    ArtikelOmschrijving.Caption = "ChangedText"
End If
End Sub

For more information on Userform:
How to create Userform

This worked, thanks!

 

[Saurabhj]

Great. Thanks for feedback.