witregels excel <br>

[HennesJean]

Hi,

Ik heb een export gemaakt van mijn klanten bestand en extra informatie.
Als ik dit weer importeer pakt hij de witregels niet meer goed weer.

Voorbeeld;

H.G.J. de Vries
- Betaald op 14-12-2009

- Nieuwe order geplaatst 17-12-2009
- Order 17-12-2009 geplaatst

- Accountinformatie update



Wordt;

H.G.J. de Vries - Betaald op 14-12-2009 - Nieuwe order geplaatst 17-12-2009 - Order 17-12-2009 geplaatst - Accountinformatie update


Ik weet dat je met <br> een 'enter' plaatst, maar kan excel dit ook automatisch? is anders vrij veel werk elke keer?

Gr. Hennes

 

[popipipo]

Ik weet dat je met <br> een 'enter' plaatst,

Bedoel je niet <cr> Carriage Return?

Plaats een een voorbeeld bestandje zonder gevoelige informatie.
Dat doet wonderen.

 

[HennesJean]

voorbeeld

In dit voorbeeld zijn het geen witregels maar begint elke opdract op een nieuwe regel.
Als ik dit importeer staat alles achter elkaar in mijn programma, in plaats van hoe het nu staat in excel.

 

[Ginger]

HennesJean, Probeer deze 'ns...

Sub HardeEnter()

    For Each c In Selection
        c.Value = Replace(c.Value, Chr(10), vbCrLf)
    Next c

End Sub

Selecteer de cellen met die tekst (zie wél mijn handtekening voor deze test!!!) en laat de code een keer z'n werk doen. Als je dan upload naar je andere programma, gaat het dan wel goed?

Groet, Leo

 

[HennesJean]

waar?

beste Leo,

Bedankt voor je reactie.
Wellicht domme vraag, waar plaats ik deze code? Op alle velden?

 

[Warme bakkertje]

ALT-F11 >> Invoegen >> Module >> Code plakken

Sub HardeEnter()
    For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        c.Value = Replace(c.Value, Chr(10), vbCrLf)
    Next c
End Sub

Met deze code moet je niet selecteren maar worden alle cellen in kolom A bewerkt