Listbox som ikke medtager tomme felter

prøv det her: celleområde er:A1:A15
Private Sub listbox2_Initialize()
    For Each c In ActiveSheet.[A1:A15]
        If c <> "" Then ListBox2.AddItem c
    Next c
End Sub

undskyld der gik så længe før jeg svarede, men jeg havde ikke fået nogen mail om at der var kommet svar. (mystisk, men skal nok holde øje med om du svarere igen)

Takker det var lige det! men der sker noget underligt 2 gang man åbner userformen. for den tilføjer dem bare igen istedet for at opdatere så listen bliver længere og længere?

du skal lige cleare først så

Private Sub UserForm_Initialize()
  ListBox1.Clear
  For Each c In ActiveSheet.[A1:A15]
      If c <> "" Then ListBox1.AddItem c
  Next c
End Sub

tak bak for at lige tilføje det sidste, skal du eller alen32 have point (kan man dele dem?)

points går til alen32, da han kom med et svar der kunne bruges. :-)