Opmaak textbox met multiline

[vaneijk]

Beste helpers van het forum,

Ik heb een cell waar meerdere waardes in staan verwerkt. Deze staan gescheiden door het " | " teken. Hier zouden later eventueel nog meerdere waardes aan worden toegevoegd.
Nu heb ik een textbox met mulitline opgemaakt, wat ik graag zou willen is dat de waardes die in de cell staan gescheiden worden op het " | " teken en netjes onder elkaar in de textbox worden geplaatst.

Voorbeeld: in cell T6 staat: 1 rol lood | 2 bladen zink | doos schroeven

plaating in textbox met multiline:

1 rol lood
2 bladen zink
doos schroeven



Is er een goede helper die mij hiermee zou kunnen helpen?

mvg, E.

 

[edmoor]

Zo:

TextBox1.Text = Replace(Range("T6"), " | ", vbCrLf)

 

[vaneijk]

@Edmoor, dit werkt precies zoals ik bedoelde, bedankt voor de geboden hulp

 

[vaneijk]

Eigenlijk heb ik hier nog een 2e kleine vraag over, als ik dit proces andersom zou willen, wordt het dan: Blad1.range("T6") = Replace(Textbox1, vbCrLf, " | ") ??

 

[edmoor]

Heb je dat zelf al getest?

 

[vaneijk]

nee eigenlijk nog niet, was net uw voorbeeld aan het uitproberen en aan het aanpassen naar het orignele bestand...

 

[edmoor]

Is een kleine moeite en had je direct een antwoord op je vraag gehad.
Maar zo werkt dat inderdaad

 

[vaneijk]

Nu wel getest en dat is het idd.... nogmaals bedankt edmoor

 

[edmoor]

Graag gedaan