Ik dacht dat je de eigenschappen van de Combobox opvraagt, dat je dan de Range kan opgeven.

Ontwerpmodus inschakelen, combobox selecteren en rechtsklikken, eigenschappen, en in ListFillRange de Range bvb B2:B8 invullen.

LinkedCell is ook nog een belangrijke: Gaat de geselecteerde cel in het bereik van de box in de gelinkte cel zetten

zie voorbeeld:


SoftAid

Hallo,

Op volgende wijze kan je bepalen wat de laatste rij of kolom is, daarna kan je de gegevens inlezen tot en met deze rij/kolom en naargelang welke "afdeling" tonen in een combobox of niet:

     ActiveCell.SpecialCells(xlLastCell).Row
     ActiveCell.SpecialCells(xlLastCell).Column


Op deze wijze kan je eenvoudig de laatste cel bepalen die gebruikt werd (nu geeft hij wel de laatste kolom en de laatste rij terug) :

     ActiveCell.SpecialCells(xlLastCell).Address

Als je de functie msgbox ervoor plaatst kan je goed zien welk resultaat er word ingelezen.

Ik vermoed wel dat je zal weten in welke kolom (of rij) er welke gegevens instaan, dan moet je enkel nog iedere rij (of kolom) overlopen en nagaan als kolom "afdeling" "kleuter" is dan moet je ze in je combobox toevoegen (via combobox.additem).

Hopelijk geraak je hiermee iets verder
groetjes

Adreline,

Ik heb een kleine uitwerking van je probleem :

in een werkmap heb je kolom A waarin je de afdeling plaatst bv. kleuter, lager en hoger ; in kolom B de namen van de betreffende personen.

Ik zou een knop maken in je werkmap die een userform opstart.

Op het userform maak je 2 comboboxen aan:

Als het userform opgestart wordt moet je ze eerst en vooral initialiseren :

Private Sub UserForm_Initialize()
Range("A1").Select
ComboBox1.AddItem "Kleuter"
ComboBox1.AddItem "Lager"
ComboBox1.AddItem "Hoger"
End Sub

Bij het wijzigen van combobox1 moet je nagaan wat er gevraagd word en de gegevens in combobox2 plaatsen :

Private Sub ComboBox1_Change()
Dim AantalRijen As Integer
AantalRijen = Selection.End(xlDown).Row
ComboBox2.Clear
If ComboBox1.Value = "Kleuter" Then
    For i = 0 To AantalRijen
        If ActiveCell.Offset(i, 0).Value = "kleuter" Then
            ComboBox2.AddItem ActiveCell.Offset(i, 1).Value
        End If
    Next
End If
End Sub

Dan wel nog bijkomende If stucturen aanleggen met lager en hoger.

Ik vermoed dat je probleempje zo zou moeten opgelost zijn natuurlijk zal je dit moeten omzetten naargelang jouw bestaande layout.

Indien je iets niet snapt moet je het maar vragen

groetjes