marco om spaties te verwijderen

[Jan B]

Ik wil graag een marco om spaties te verwijderen.
Als er bv staat "Henk Pietersen"
dan moeten de spaties voor de naam weg en de de spaties achter de naam weg.
De spatie tussen de voor en achternaam moet blijven staan.

Alvast bedank.

gr. Jan

[Ton]

Jan B.
Niet de professionele oplossing maar een die je zelf zou kunnen maken met
gebruik maken van de functie spaties.wissen(). Hiervoor een hulpkolom
invoegen, de functie in die kolom kopiëren, de waarden speciaal kopieren naar
de kolom met je gegevens en de hulpkolom weer verwijderen. Nogmaals, niet de
mooiste cq kortste maar door zelf te onderzoeken en te doen groeit je kennis
en ervaring.
Succes, Ton

[emil]

in Vba kan je daarvoor de mehode trim("tekst") gebruiken.

"Ton" <frensk...@gmail.com> schreef in bericht
news:89DAAD1B-EA98-4485...@microsoft.com...

[Jan B]

Ik heb hem al gevonden
voor de liefhebber.
kolom met dubbele spaties selcteren en de onderstaande macro runnen.

Sub dural()
For Each r In Selection
a = r.Address
r.Value = Evaluate("Trim(" & a & ")")
Next
End Sub

Gr. Jan

"emil" <j.seidenbecher(overbodig)@hccnet.nl> schreef in bericht
news:ONC6XPbI...@TK2MSFTNGP02.phx.gbl...

[jan]

Jan,

Dan is dit wellicht ook een mooie oplossing:

Sub test()
Selection = Application.Trim(Selection)
End Sub

Voor een groot geselecteerd gebied werkt dit sneller dan dat je cel voor cel de
selectie moet laten doorlopen.

Jan