fout 424 (object vereist) bij vullen combobox

[jagea]

Wie helpt deze beginner?

Wil een combobox vullen met items, maar krijg bovenstaande foutmelding.

Heb de volgende code gebruikt:

Private Sub Workbook_Activate()
ComboBox4.Clear
ComboBox4.AddItem "ja"
ComboBox4.AddItem "nee"

Al vast bedankt,

Age

 

[snb]

er geen combobox met de naam Combobox4.

Laden van een combobox doe je het beste in de gebeurtenis Initialize
En het snelste met de eigenschap list en de methode split ,die van een tekstreeks een array/matrix maakt.

Private Sub Userform_Initialize()
  ComboBox1.list=split("ja|nee","|")
End Sub

 

[Relleboer]

Als je de combobox4 op een werblad heb staan moet je er ook na verwijzen.

Private Sub Workbook_Activate()
With Sheets("blad1")
.ComboBox4.Clear
.ComboBox4.AddItem "ja"
.ComboBox4.AddItem "nee"
End With
End Sub

 

[jagea]

Bedankt voor jullie hulp!

Combobox bestond inderdaad niet in alle Worksheets