Userform Combobox - bij invullen van combobox moeten alle andere cb's gereset worden

[SjofaaSj]

Beste

Op een userform (voorbeeld in bijlage) staan 18 comboboxen die elk een aantal regels bevatten.
Ik heb daar 2 vragen bij.

1/ Bedoeling is dat bij selectie van een willekeurig item
a. de de gekozen waarde wordt weggeschreven naar de sheet
b. alle overige CB gereset worden zodat op de gehele userform slechts één CB met een keuze staat
(in het voorbeeld heb ik enkel code gestoken achter de eerste 4 CB)

Wanneer ik een selectie maak, lukt dat de 1° keer perfect
Maar bij een 2° (andere) selectie, wordt alles gewist.
De derde keer (idem als 2°) lukt het dan weer wel.

Het lijkt erop dat, wanneer er iets is geselecteerd, telkens alles wordt gewist.
Wordt misschien de code die achter de andere CB zit dan ook aangesproken waardoor alles gereset wordt?
Hoe kan ik dat verhelpen aub?


2/ Naast de vooraf ingestelde types wil ik de user een eigen type laten kiezen.
Hiervoor moet hij het tekstvak onderaan invullen, maar dit zou moeten resulteren in
a. reset van alle bovenstaande CB
b. wegschrijven van de opgegeven waarde naar de sheet
Maar ook daar blokkeert de code


Dank voor wat sturing/assistentie hierbij.

 

[HSV]

Doe het eens met de Click_event.

Private Sub ComboBox_Type01_Click()
For Each ctl In Me.Frame_Type01.Controls
      If TypeName(ctl) = "ComboBox" And ctl.Name <> "ComboBox_Type01" Then ctl.ListIndex = -1
    Next ctl
    Range("P_ExpExt") = ComboBox_Type01.Value
    TextBox_Type01.Value = ""
End Sub

 

[SjofaaSj]

Bedankt Harry, daarmee lukt het.

En om probleem 2 op te lossen heb ik de regel

TextBox_Type01.Value = ""

verwijderd en het tekstvak gekoppeld aan de desbetreffende named range. Zo wijzigt die mee met de selecties maar ook als die manueel wordt ingevuld.

Problem solved!

 

[snb]

Waarom maak je van het tekstvak geen combobox met alle mogelijke extensies erin ?