Kald af funktion

sidste løkke ændres til

For i = 1 To t
    If unikke2(i) <> "" Then
        UserForm1.Controls(ComboboxNavn).AddItem unikke2(i)
    End If
Next

Hej Bak lige hvad det skulle til. Smider du et svar så er points på kontoen

ok :-)

og lige et svar..

Hej Bak

Håber du stadigvæk lige er på dette spm.
Jeg lavet det om til en funktion hvor ComboboxNavn og Kolonnestart benyttes, men nu vil jeg også gerne have formen med, men den vil ikke rigtig acceptere nedenstående:

Public Sub DataInCombobox(UserFormVariabel, ComboboxNavn, KolonneStart)
Dim i, j, t
Dim RowNumber
RowNumber = 200
Dim unikke(65000)
Dim unikke2(65000)
t = 1
Worksheets("Hoved ark").Activate
For i = 1 To RowNumber
  unikke(i) = Cells(i + 3, KolonneStart)
Next
For i = 1 To RowNumber
  For j = i + 1 To RowNumber
    If unikke(j) = unikke(i) Then unikke(j) = ""
  Next
Next
For i = 1 To RowNumber
If unikke(i) = "" _
  Or Cells(i + 3, ColoumnItemNumber).Value = "" _
  Or Cells(i + 3, ColoumnItemNumber).Value = "TBD" _
  Or Cells(i + 3, ColoumnPaperWorks).Value = "" _
  Or Cells(i + 3, ColoumnPackgingPapers).Value = "" _
  Or Cells(i + 3, ColoumnAccessoryLayout).Value = "" _
  Then GoTo om
unikke2(t) = unikke(i): t = t + 1
om:
Next
For i = 1 To t
    If unikke2(i) <> "" Then
        UserFormVariabel.Controls(ComboboxNavn).AddItem unikke2(i)
    End If
Next

Er klar over det er:

FormVariabel.Controls(ComboboxNavn).AddItem unikke2(i)

den er gal med, men kan ikke lige gennemskue hvordan syntaxen er når man bruger en variabel her?

UserFormVariabel.Controls(ComboboxNavn).AddItem unikke2(i)

Skulle det have været :o)