Dependent comboboxes zonder userform

[Bandito]

Hoi allemaal,

Is het mogelijk om afhankelijke comboxes te maken zonder een userform te gebruiken?
Ik heb de comboboxes gewoon op de sheet geplaatst en wanneer ik op internet zoek naar dependent userboxes hebben ze allemaal een userform in VBA gemaakt. Dat heb ik dus niet en wil ik eigenlijk ook niet.

Ik weet dat het makkelijker is met data validation maar dat komt niet echt uit met de opmaak van mijn sheet.

Dus, is het mogelijk om dependent comboxes te gebruiken zonder een userform aan te maken?

 

[Bandito]

Toch een voorbeeldje gevonden waar ik nu mee aan de slag ga

 

[emields]

ik denk dat je gegevensvalidatie moet zoeken.

 

[snb]

Hoezo, niet gevonden?

http://www.snb-vba.eu/VBA_Afhankelijke_Comboboxen.html#L_1

 

[Bandito]

Hoezo, niet gevonden?

http://www.snb-vba.eu/VBA_Afhankelijke_Comboboxen.html#L_1

Bedankt voor de link.
Ik ben nu deze aan het volgen maar krijg de volgende error;

Run time error '438'
Object doesn't support this property or method

Wanneer ik op debug druk wordt de volgende regel gemarkeerd;

.keus1.List = Split(Mid(c01, 2), ",")

Private Sub Workbook_Open()
sn = Sheets("Shifts").Cells(1).CurrentRegion
For j = 1 To UBound(sn)
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
Next

With Sheets("Dashboard")
.keus1.List = Split(Mid(c01, 2), ",")
End With
End Sub

Iemand enig idee wat hier fout gaat?

 

[emields]

Zonder voorbeeld bestand niemand

 

[snb]

Dan heb je geen ActiveX combobox in het werkblad staan, of die een andere naam gegeven dan 'keus1'.
De konstruktie with ... end with is hier overbodig:

Sheets("Dashboard").keus1.List = Split(Mid(c01, 2), ",")

 

[WHER]

Toch maar een gokje wagen:

.DropDowns(1).List = Split(Mid(c01, 2), ",")

 

[Bandito]

Het was inderdaad het ActiveX dingetje. Dank u wel.