enter in userform word vierkantje in excel??

[rvegmond]

nog een probleem waar ik tegen aanloop.

in mijn userform heb ik een tekstvak met de eigenschap multiline en enterkeybehavior true.
als ik nu iets type in mijn tekstbox en een enter geef dan krijg ik een vierkantje in mijn cell (excel).

Weet iemand hoe ik dit vierkantje weg krijg, het wordt namelijk ook afgedrukt.
ik kan de vierkantjes wel weg halen maar dit is handmatig gewoon in het werkblad en dit wil ik automatisch
in office 2007 worden het vraagtekens?

bvd

 

[MauriceSmit]

Zou hier de REPLACE funtie van vba niet in werken

Replace([COLOR="Lime"]input[/COLOR];vbcrlf;[COLOR="lime"]te vervangen door teken[/COLOR])

Bij mij gaat het overigens wel goed; zonder aanpassing;

Succes!

 

[rvegmond]

reactie

hoi Maurice, (of natuurlijk ook andere vba'ers)

ik begrijp het niet zo goed.
"Replace(input;vbcrlf;te vervangen door teken)", waar moet ik dit plaatsen?
moet dit in mijn userform, textbox of als eigenschap op mijn cell

ik krijg een fout melding verwacht lijstscheidingsteken of ) bij ;
ook heb ik een simpel voorbeeld toegevoegd.

je schrijft ook dat hij bij jou geen teken geeft zonder aanpassingen. Kan het te maken hebben met een textbox of cell instelling?

bvd

 

[rvegmond]

Help reactie

heeft er iemand een idee hoe ik dit kan oplossen???

 

[snb]

Zet een knop in het userform met de volgende code

Private Sub CommandButton1_Click()
   Sheets(1).Range("C4") = Replace(TextBox1.Text, vbCr, Chr(10))
End Sub

 

[rvegmond]

reactie

Beste SNB,

bedankt voor je reactie,:thumb:

helaas werkt dit niet.
Ik heb deze userform in vba gemaakt, misschien moet er nog een aanpassing gedaan worden. Ik heb de code al iets geprobeerd in te korten door sheet1 er vanaf te halen. maar ook dan krijg ik een fout melding. heb je nog meer suggesties?

 

[snb]

Sub tst()
  [Blad1!C4] = Replace([Blad1!C4], vbCr, Chr(10))
End Sub

 

[rvegmond]

reactie

Hallo SNB,

de code werkt goed:thumb:, alleen krijg ik nu het volgende.

met deze code geeft de cell na verwijdering van de vraagtekens/ vierkantjes een harde enter.
dus als ik iets op 2 regels zet dan worden het na verwijdering ineens 3? Heb je enig idee

 

[rvegmond]

de oplossing

ik heb het:thumb::thumb::thumb::thumb::thumb:

de code [Blad1!C4] = Replace([Blad1!C4], vbCr, Chr(10))
werkte goed, maar kreeg een harde enter ervoor in de plaats.
als je de code vbCR vervangt naar vbCrLf is het probleem opgelost.

Maurice bedankt voor je reactie (nu begrijp ik jouw melding)
SNB bedankt voor je reactie