Er komt een teken bij, bij het plakken.

[Hoornvan]

Hallo Excelers,

Mijn vraag gaat over "¶" dit teken (ALT20).

Als ik de Macro "Private Sub cmdPlak_Click()" gebruik zet hij er ¶ achter.

059ab601e430965e5f605b03fbf5edb4
Als het bovenstaande wordt gekopieerd en laat de macro starten zet hij dit neer in de TextBox.
059ab601e430965e5f605b03fbf5edb4¶

Klik ik met rechts opeen cel en kies voor plakken dan doet hij het wel zonder dat teken.

Nu dus de vraag; wat is er fout aan de code?
Of hoe haal ik dat teken weg?
De TextBox staat op een formulier.

Private Sub cmdPlak_Click()
Dim DataObj As New MSForms.DataObject
On Error Resume Next
    DataObj.GetFromClipboard
    txtHash.Value = DataObj.GetText
End Sub

 

[dOmO]

dat teken is toch een return (enter)?

 

[Hoornvan]

Bedankt voor je antwoord.
Ik heb gezocht maar kan het niet vinden, of het teken voor enter is.

Het is toch vreemd dat als je het in een cel doet (plakken), dat teken er niet bij komt.

 

[snb]

De zin van de exercitie ontgaat me (waarom geen copy / paste ?), edoch

txtHash.Value = left(DataObj.GetText,len(DataObj.GetText)-1)

 

[danny147]

Beste Hoornvan

Achter b4 kan je niets terug vinden ?
Probeer eens een delete te doen achter b4.

Groetjes Danny. :thumb:

 

[Hoornvan]

Beste Hoornvan

Achter b4 kan je niets terug vinden ?
Probeer eens een delete te doen achter b4.

Groetjes Danny. :thumb:

Dan werkt het wel maar moet die dan steeds doen en is natuurlijk niet de bedoeling.

 

[snb]

nogmaals:

   With New MSForms.dataobject
         .GetFromClipboard
         txtHash.Text = left(.GetText,len(.GetText)-1)
   End With

 

[Hoornvan]

snb,

Bedankt voor de code maar het probleem blijf helaas het zelfde.
Het teken ¶ krijg ik niet weg.
Zal ermee moeten leren leven.

 

[Hoornvan]

snb,

De code werkt wel, ik heb van de -1, -2 gemaakt en nu doet hij het goed.
Met F8 heb ik regel voor regel doorlopen en de cursor op de variable gehouden en zag toen 2 blokjes achter het getal staan, vandaar de -2.

Nogmaals hartelijk bedankt.

 

[snb]

En je weet natuurlijk ook waarom: de tekst wordt afgesloten met vbCrLf.
Dat komt overeen met chr(10) + chr(13).

het had dus ook gekund met

With New MSForms.dataobject
  .GetFromClipboard
  txtHash.Text = replace(.GetText,vbCrLf,"")
End With