Combobox vullen

[HierEnNu]

Een combobox in een userform wil ik gevuld hebben met waarden die staan op een blad in de werkmap. De hoeveelheid waarden kan varieren: er kunnen waarden bijkomen en afgaan. De range (d2:d1000) is daarom ruim genomen.

Met de volgende code (en nog vele andere) heb ik geprobeerd de combobox te vullen:

[Private Sub UserForm1_Activate()

Dim r As Range
For Each r In Sheets("Blad4").Range("D2:D1000")
If r <> "" Then
    Combobox1.AddItem r.Value
End If
Next
End Sub/CODE]

Maar de comobox wordt niet gevuld met de bedoelde waarden.

Wat doe ik fout?

Groeten,

M.

 

[Demeter]

Probeer het eens met initialize.

Private Sub UserForm_Initialize()
Dim r As Range
Dim laatsteregel As Long

laatsteregel = Sheets("Blad4").Range("D65536").End(xlUp).Row

    For Each r In Sheets("Blad4").Range("D2:D" & laatsteregel)
        If r <> "" Then
            ComboBox1.AddItem r.Value
        End If
    Next
    
End Sub

ps.
Graag je code tussen de tags plaatsen LOL
Just kidding

 

[Spiderman]

Mocht je het toch via activate willen doen, dan met

Private Sub UserForm_Activate()

en niet via

Private Sub UserForm[B][COLOR="Red"]1[/COLOR][/B]_Activate()

 

[HierEnNu]

Demeter en Spiderman,

Allebei de voorstellen werken niet.
Ik heb wel vaak problemen met de notatie Sheets("Blad4").Range("D2100") (als voorbeeld). Als ik dit gebruik dan krijg ik een foutmelding (1004).
Ik heb een bestandje bijgevoegd. Dan wordt het wellicht wat duidelijker.

Groeten,

M.

 

[Haaren101]

Wellicht kan dit helpen: http://www.contextures.com/xlUserForm02.html

Groet
Ron

 

[Demeter]

Ik heb wel vaak problemen met de notatie Sheets("Blad4").Range("D2100") (als voorbeeld).

Dan moet er wel een blad zijn met de naam Blad4
Houdt ook rekening mee met het gene wat Spiderman in zijn post heeft aangegeven: Code achter het userform krijgt niet de naam van het userform maar gewoon "UserForm" mee.

Probeer deze eens:

Private Sub UserForm_Initialize()
Dim r As Range
Dim laatsteregel As Long

laatsteregel = Sheets("ReservesVoorzieningen").Range("D65536").End(xlUp).Row

    For Each r In Sheets("ReservesVoorzieningen").Range("D2:D" & laatsteregel)
        If r <> "" Then
            Combobox1.AddItem r.Value
        End If
    Next
    
End Sub

 

[HierEnNu]

Het is gelukt. Ik heb de lijst een naam gegeven en een dynamische verwijzing. De naam vervolgens bij de comboboxeigenschappen in de row source geplaatst. Werkt prima.
Iederen bedankt voor het meedenken!

Groeten,

M.