Excel VBA trim

[pjongepier]

Ik zit met het volgende probleem:
d.m.v. vba wil ik een kolom met namen trimmen (kolom A in voorbeeldje) zodat alle overbodige spaties worden weggehaald (links, recht en ook in de tekst).
Het resultaat moet dan worden zoals in kolom B is verkregen met de werkbladfunctie spaties.wissen ().
Via Google etc. al diverse opties geprobeerd maar de spaties in de tekst blijven steeds aanwezig.
Weet iemand hier een oplossing voor?

Alvast dank voor de reactie!

Piet Jongepier

 

[E v R]

zoek de verschillen:

Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction

 

[VenA]

Met een lusje.

Sub VenA()
Dim cl
For Each cl In Columns(1).SpecialCells(2)
 cl.Value = Trim(cl.Value)
Next cl
End Sub

 

[gast0660]

Hoi,
Hier heb je er nog eentje

Sub dotchie()
Dim cl As Variant
For Each cl In Selection
        If Len(cl) > Len(WorksheetFunction.Trim(cl)) Then
            cl.Value = WorksheetFunction.Trim(cl)
        End If
    Next cl
End sub

 

[pjongepier]

Het probleem lijkt te zijn opgelost. De oplossing van gast0660 past het beste in de al bestaande code.
Hartelijk dank voor het meedenken en de reacties!

Groet, Piet

 

[VenA]

Omdat de vraag nog niet als opgelost staat. Het toetsen of de lengte met of zonder spaties gelijk is lijkt mij onnodig.

Sub VenA()
Dim cl
For Each cl In Selection.SpecialCells(2)
    cl.Value = Application.Trim(cl)
Next cl
End Sub

 

[rebmog]

Nog eentje zonder loop:

Sub rebmog()
    [c1:c4] = [index(trim(a1:a4),)]
End Sub

 

[pjongepier]

Even vergeten af te melden.
Bij deze nu gedaan. Nogmaals een ieder bedankt voor de hulp!
Groet, Piet