listbox vba

[nobody11]

hoi iedereen,

ik probeer in een userform een listbox te laten vullen met waarden uit een bepaalde range, maar dit lukt vooralsnog niet...de source data staat op de sheet1, range e2:e26

Private Sub UserForm_Activate()

    With ListBox1
        rngsource = "sheet1!E2:E26"
        .List = rngsource.Cells.Value
    End With
End Sub

iemand enig idee?

bedankt!!

 

[Roncancio]

Naar aanleiding van je code:

Private Sub UserForm_Activate()
With ListBox1
      rngsource = "sheet1!E2:E26"
      .List = Range(rngsource).Value
End With
End Sub

Maar het kan ook korter:

Private Sub UserForm_Activate()
ListBox1.List = Range("sheet1!E2:E26").Value
End Sub

Met vriendelijke groet,


Roncancio

 

[zapatr]

ik probeer in een userform een listbox te laten vullen met waarden uit een bepaalde range, maar dit lukt vooralsnog niet...de source data staat op de sheet1, range e2:e26

Private Sub UserForm_Activate()
With ListBox1
rngsource = "sheet1!E2:E26"
List = rngsource.Cells.Value
End With
End Sub

Waarom stel je die gegevens niet in via de eigenschappen van de listbox,
dat is toch veel eenvoudiger?