Niet lege cellen (tekst) in 1 kolom

[wiki]

Ik wil graag uit een bereik alle, bij voorkeur unieke, waarden weergeven in 1 kolom.
Voor cellen met een getal heb ik wel de formule, maar niet voor tekst.

Wie kan helpen?

gr wim

 

[Cobbe]

Alle waarden in een kolom zetten lukt zo wel:

Sub koloniseren()
i = 1
For Each C In Range("$B$2:$S$41")
If C > "" Then
Cells(i, 1) = C
i = i + 1
End If
Next
End Sub

Daarna kun je de kolom sorteren en/of checken op dubbels.

Succes, Cobbe

 

[Wigi]

Als de cellen met vaste tekst gevuld worden (geen formule die tekst oplevert):

Sub koloniseren()
    On Error Resume Next
    For Each r In Range("B2:S41").SpecialCells(xlCellTypeConstants, xlTextValues)
        Range("A" & Rows.Count).End(xlUp).Offset(1) = r
    Next
End Sub

Pas aan indien het gaat om variaties op dit thema.

Wigi

 

[wiki]

Heren bedankt:thumb:

De macro werkt uitstekend. Heb deze uitgebreid door de gegevens naar een lege map te kopieren.

gr wim