Naamlijst definiëren

[danny147]

Beste,
Ik heb een dynamische naamlijst gedefinieerd:

=VERSCHUIVING(Voorraad!$A$5;0;0;AANTALARG(Voorraad!$A:$A))

Via code gaat soms de eerst rij, A5 automatisch verwijderd worden en geeft mijn lijst VERW# weer
Heb onderstaande gevonden in vba, waar kan ik deze plakken
Deze moet ik dan gebruiken in de ComboBox1 die in een userform staat

ComboBox1.RowSource = Sheets("Voorraad").Range([A4], Cells(Rows.Count, "A").End(xlUp))

 

[Cobbe]

Zo?

Private Sub UserForm_Initialize()
  ComboBox1.RowSource = "voorraad!A4:A" & Sheets("voorraad").Range("A" & Sheets("voorraad").Rows.Count).End(xlUp).Row
End Sub

of beter zo:

Private Sub UserForm_Initialize()
With Sheets("Voorraad")
  ComboBox1.RowSource = "voorraad!A4:A" & .Range("A" & .Rows.Count).End(xlUp).Row
End With
End Sub

 

[danny147]

Beste Cobbe,

Bedankt het werkt ook al stond er een "Private Sub UserForm_Initialize()" in mijn code
Heb ze er gewoon bijgeschreven.