fout 381 Kan eigenschap list niet verkrijgen

[Roma]

Beste specialisten,

Ik heb een comboBox gemaakt. In het begin werkte hij goed. Nu krijg ik een foutmelding 381

"fout 381 tijdens uitvoering
Kan eigenschap list niet verkrijgen. Ongeldige index voor eigenschappenmatrix"

Dit is de code:

Private Sub UserForm_Initialize()
Dim lastcel As String
lastcel = Worksheets("Ontvangsten").Range("I1000").End(xlUp).row
Me.ComboBox1.List = Worksheets("Ontvangsten").Range("I4:I" & lastcel).Value
End Sub

Ik weet niet wat ik fout doe
wie kan mij helpen

 

[Roma]

Probleem opgelost zelf een kleine stomme fout gemaakt
Kaal niet blond maar wel dom

 

[VenA]

Volgens mij doet deze het ook.

Private Sub UserForm_Initialize()
With Sheets("Ontvangsten")
    Me.ComboBox1.List = .Range("I4:I" & .Range("I1000").End(xlUp).Row).Value
End With
End Sub

 

[Roma]

bedankt ik ga deze ook proberen. Het probleem is als de range niet gevuld is dan geeft hij de foutmelding