combobox en afhankelijkheid

[janss028]

Ls

(Zie ook bijlage)
Ik heb de volgende vraag:
Heb in excel een userform met een aantal comboboxen. Nu wil ik graag dat als ik een waarde uit combobox 1 kies dat ik dan vervolgens alleen in combobox 2 die gegevens krijg die betrekking hebbe op de keuze op de waarde van combobox 1
Voorbeeld

Combobox 1
A
B
C
D

Combox 2
E
F
G
H
I

Nu kies ik bv bij Combobox 1 voor B en wil ik in Combox alleen de waarde F,H en I hebben.
Is dit mogelijk en zo ja hoe kan ik dit oplossen.

Mvg
Ron

 

[MauriceSmit]

moet het via een userform? Ik kan het namelijk wel via Data-Validatie maar da's gewoon in Excel zelf

 

[janss028]

De hele opzet die ik al gemaakt hebt is via een UserForm. Dus in mijn geval zou ik het graag in een UserForm hebben.

Gr
Ron

 

[MauriceSmit]

met een paar regels code voor het openen en wijzigen combo 1
hoop dat je ermee uit de voeten kunt!

succes! :thumb:

 

[Warme bakkertje]

Deze werkt met dynamische bereiken. Zie bijlage

 

[snb]

In de bijlage 3 methoden:

2 methoden waarbij er 1 primaire keuze wordt gemaakt en in een andere combobox de afhankelijke keuzen worden getoond en kunnen worden gemaakt. De ene afhankelijke combobox werkt met de methode .columnwidth, de andere met de methode .list

De derde methode integreert de methode .ColumnWidth in 1 combobox. In deze combobox kan zowel de primaire keuze worden gemaakt als de secundaire (afhankelijke keuze). En dit alles natuurljik met een minimum aan VBA-code.

@Maurice de additem methode is geen handige methode om een combobox of listbox te vullen. .List of .Rowsource hebben de voorkeur (want merkbaar sneller).

 

[janss028]

Heren,
Bedankt. Het is gelukt

Gr
Ron

 

[ThomasVerlinden]

Het aantal

Private Sub MQ_Change()
   
    sq = Split("0;0;0;0", ";")
    sq(MQ.ListIndex) = 60
    MerkGeen.ColumnWidths = Join(sq, ";")
   
End Sub

Private Sub MerkGeen_Change()
sq = Split("0;0;0;0", ";")
    sq(MerkGeen.ListIndex) = 60
    AHD.ColumnWidths = Join(sq, ";")
End Sub


Private Sub AHD_Change()
sq = Split("0;0;0;0", ";")
    sq(AHD.ListIndex) = 60
    SoortReperatie.ColumnWidths = Join(sq, ";")
End Sub




Private Sub UserForm_Initialize()
    MQ.List = WorksheetFunction.Transpose(Sheets(3).[A1].CurrentRegion.Columns(1))
    
    sq = Sheets(3).[B1].CurrentRegion.Columns(2).Resize(, 4)
    MerkGeen.List = sq
    sq = Sheets(3).[C1].CurrentRegion.Columns(3).Resize(, 4)
    AHD.List = sq
    sq = Sheets(3).[D1].CurrentRegion.Columns(4).Resize(, 4)
    SoortReperatie.List = sq
    
   
End Sub

Mechanisch Maurice Automaat Basis + secondeweijzer
Mechanisch Maurice Automaat Basis + secondewijzer+datum
Mechanisch Maurice Automaat Basis + secondewijzer +datum+ dag
Mechanisch Maurice Automaat Basis + secondewijzer+ datum+ dag +chonograaf
Mechanisch Maurice Handgedraaid Basis + secondeweijzer
Mechanisch Maurice Handgedraaid Basis + secondewijzer+datum
Mechanisch Maurice Handgedraaid Basis + secondewijzer +datum+ dag
Mechanisch Maurice Handgedraaid Basis + secondewijzer+ datum+ dag +chonograaf
Mechanisch Maurice Diversen opwindstift
Mechanisch Maurice Diversen kroon
Mechanisch Maurice Diversen kroon + stift
Mechanisch Maurice Diversen kroon titanium
Mechanisch Maurice Diversen kroon solderen
Mechanisch Maurice Diversen tube
Mechanisch Maurice Diversen veer
Mechanisch Maurice Diversen wijzerklemming
Mechanisch Maurice Diversen wijzers per stuk
Mechanisch Maurice Diversen waterdichtring
Mechanisch Maurice Diversen waterdichtheid testen
Mechanisch Maurice Diversen poussoirs reinigen als mogelijk
Mechanisch Maurice Diversen wijzerplaatpoten inboren
Mechanisch Maurice Diversen batterij + controle
Mechanisch Maurice Diversen nieuw uurwerk quartz (veel verschillende uurwerken, dus

Dit is de code zoals die is gegeven bij het voor na laatste bericht alleen dan aangepast aan mijn database.
Het werkt voor een deel. Ik krijg in iedere cheackbox een lijst maar er doen zich 2 problemen voor.

ik kan alleen de eerste 4 waarders in de checkbox aanklikken en alle waarden zijn meerdere malen weergeven.

Wat moet ik aanpassen?

 

[crash]

Welkom op Helpmij.nl.

Topic is van 2009, dus al heel lang niet actueel meer. Graag oude topics met rust laten. Tevens is het niet toegestaan mee te liften in iemand zijn/haar topic.