op voorwaarde een tabel kiezen bij keuzelijst

[polderploer]

Ik wil graag twee keuzelijsten hebben, waarbij de tweede afhankelijk is van de eerste.

Stel bij keuzelijst 1 wordt voor tabel 1 gekozen, dan moet bij keuzelijst 2 een keuze kunnen worden gemaakt uit alle onderdelen in tabel 1.

Oftewel de tweede keuzelijst omvat een "als" functie, maar deze valt niet te intergreren in het besturingselement.

Heeft iemand een oplossing??

 

[Wigi]

Hier staat het uitgelegd, zeer goede pagina, wel in het Engels.

http://www.contextures.com/xlDataVal02.html

Wigi

 

[polderploer]

Hier staat het uitgelegd, zeer goede pagina, wel in het Engels.

http://www.contextures.com/xlDataVal02.html

Wigi

ok dankjewel, maar nu heb ik het probleem dat ie als ik een andere waarde bij de eerste lijst kies de oude waarde uit lijst 2 blijft staan, en dit is niet de bedoeling. Het mooiste zou zijn dat deze list dan weer leeg is, maar in ieder geval geen waarde uit de oude lijst.

 

[Relleboer]

Dit is een voorbeeldje waar na verandering van de eerste combobox de andere drie z'n gegevens ophalen en zo de goede gegevens weergeven

Private Sub combobox1_change()
    'macro om de comboboxes te vullen
    Sheets("gegevens").Select
    Dim rEersteCel As Range
    Dim rApplication As Range
    Dim rProduct As Range
    
    Set rEersteCel = Sheets("gegevens").Cells(1, ComboBox1.ListIndex + 3)
    Set rApplication = Sheets("gegevens").Cells(1, 12)
    Set rProduct = Sheets("gegevens").Cells(1, 13)
    
    ComboBox3.RowSource = Range(rEersteCel, rEersteCel.End(xlDown)).Address
    ComboBox2.RowSource = Range(rApplication, rApplication.End(xlDown)).Address
    ComboBox4.RowSource = Range(rProduct, rProduct.End(xlDown)).Address
    Sheets("tijdelijk").Select
    Columns("A:B").ClearContents
    end sub

 

[polderploer]

Dit is een voorbeeldje waar na verandering van de eerste combobox de andere drie z'n gegevens ophalen en zo de goede gegevens weergeven

Private Sub combobox1_change()
    'macro om de comboboxes te vullen
    Sheets("gegevens").Select
    Dim rEersteCel As Range
    Dim rApplication As Range
    Dim rProduct As Range
    
    Set rEersteCel = Sheets("gegevens").Cells(1, ComboBox1.ListIndex + 3)
    Set rApplication = Sheets("gegevens").Cells(1, 12)
    Set rProduct = Sheets("gegevens").Cells(1, 13)
    
    ComboBox3.RowSource = Range(rEersteCel, rEersteCel.End(xlDown)).Address
    ComboBox2.RowSource = Range(rApplication, rApplication.End(xlDown)).Address
    ComboBox4.RowSource = Range(rProduct, rProduct.End(xlDown)).Address
    Sheets("tijdelijk").Select
    Columns("A:B").ClearContents
    end sub

Heb je hier ook een voorbeeld bestandje van?? Want ik kom er niet uit.