Excel 2003: validatielijst met tekst, maar zonder nullen of lege regels. Hoe?

[DjoeZty]

Hallo,

Ik ben al een avond aan het zoeken naar een oplossing, maar het lukt niet.
Daarom wend ik mij tot jullie.

Ik probeer een validatielijst te krijgen met uitsluitend tekstregels.
Géén nullen, géén lege regels.
Ik krijg dit niet voor elkaar, zie Excel 2003-bijlage.

In werkblad Doel probeer ik een validatielijst te definieren vanuit Bron en op te roepen in de gele cellen, zonder nullen of lege regels.
Dit lukt me niet...

Wie kan me helpen???

BVD en groeten,
DjoeZty aka Joost

 

[Thankyou]

Joost,

Kijk eens naar bijgevoegd bestandje, hulpkolom kan je verbergen.

Succes

 

[Warme bakkertje]

Wordt je lijst langer en wil je niet al die formules

Sub ZonderLege()
  Dim sq() As Variant, i As Integer, c As Range
  i = -1
  With Sheets("Bron")
    For Each c In .Range("A5:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        If Not c = "" Then
            i = i + 1
            ReDim Preserve sq(i)
            sq(i) = c.Value
        End If
    Next
    .Cells(4, 2).Resize(UBound(sq) + 1) = WorksheetFunction.Transpose(sq)
  End With
End Sub