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:
Ik weet niet wat ik fout doe
wie kan mij helpen
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:
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