Combo-boks i Userform - opdatering virker ikke
Kære eksperter,jeg har virkelig brug for hjælp til denne:
Jeg har oprettet en userform i Excel (VBA), som bl.a. består af 4 combo-bokse.
De valgmuligheder, som skal være tilgængelige i Combo-boks 4 (lstProduct) er afhængig af valget i Combo-boks 3 (lstCategory). Men det virker ikke ordenligt med denne ”activate”
------------------------------
Private Sub UserForm_Activate()
With lstClientName
.RowSource = "Clients"
.ListIndex = 0
End With
With lstOffer
.RowSource = "Offers"
.ListIndex = 0
End With
With lstCategory
.RowSource = "category"
.ListIndex = 0
End With
If lstCategory = "Functionality" Then
With lstProduct
.RowSource = "Functionality"
.ListIndex = 0
End With
ElseIf lstCategory = "Instrument" Then
With lstProduct
.RowSource = "Instruments"
.ListIndex = 0
End With
End If
------------------------------
Problemet er, hvis jeg vælger ”Instrument”, burde instruments være tilgængeligt. Det sker dog først, når jeg aktivt stiller mig på Combo-boks 4, og så kan jeg ikke vælge noget fra listen – det er som om den går i hyper hver gang?
Hvad skal jeg gøre for at Combo-boks 4 automatisk (med det samme) loader den aktuelle rowsource, når jeg foretager et valg i combo-boks 3 og det rent faktisk også er muligt at vælge noget fra 4’eren?
Mvh
LAJE
