Dim colX As New Collection Dim c As Range On Error Resume Next For Each c In Range("B2:B100") colX.Add CStr(c), CStr(c) If Err.Number = 0 Then ComboBox1.AddItem CStr(c) Err.Clear Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.