Linieskift i Textbox i Userform

Der skulle stå 'Men i modtager-cellen kommer der små fine firkanter for hver Ctrl-Return'

Els.:

cells(x,y).value = left(textbox1,len(textbox1)-2)

Hej. Tak for svar.

Jeg kan ikke helt gennemskue denne. Brugeren indtaster noget i en textbox i en userform. Ved tryk på commandbutton har jeg sat userformen til at indsætte indholdet (brugerens indtastning) ind i en celle i et sheet.

Så vidt jeg kan se er der 3 muligheder.

1. Det kan være, at jeg har lavet forkerte indstillinger for textboxens properties i userformen. Her har jeg bla Multiline og Wordwrap som True

2. Det kan være, at cellen (der modtager teksten) har forkert indstilling. Denne er en flettet celle af flere celler. Den har ombryd-tekst indstilling.

3. At skrive-ordren fra userformen er forkert. Lige nu har den følgende ordre: RgnTextBoxBem.FormulaR1C1 = Me.TextBoxBem
Jeg har forsøgt med at sætte .value og .text bagefter eller sætte den i en format funktion uden held.

Hvor tænkte du på at jeg aktivere denne: cells(x,y).value = left(textbox1,len(textbox1)-2)

Hvad hvis der er flere linieskift.

alternativ:

Private Sub CommandButton1_Click()
    tekst = Replace(Me.TextBox1, vbCr, " ")
    Cells(1, 1) = tekst
End Sub

Hej

Super godt. Tusind tak. Jeg valgte blot denne løsning:

RgnTextBoxBem.Value = Replace(Me.TextBoxBem, vbCr, " ")

Så ruller det.

Jeg er stadig mystificereret over at man ikke kan lave en opsætning.

Lagt et svar.

Selv tak -