textbox text splitsen

[Revdutchie]

Dames en Heren.

Ik wil de regels in een textbox van een userform splitsen naar meerdere cellen
dit lukt prima met deze code

Dim Str As String, a
    Dim cnt As Integer
    Dim w()
     
    Str = TextBox1.Value
    a = Chr(10)
    cnt = UBound(Split(Str, a))
     
    ReDim w(1 To cnt + 1, 1 To 1)
     
    For i = 0 To cnt
        w(i + 1, 1) = Split(Str, Chr(10))(i)
    Next i
    ActiveSheet.Range("A1").Resize(i, 1) = w

Alleen deze splitst naar beneden en ik wil opzij (dus over de kolommen)

 

[snb]

sq=split(Textbox1.Text)
cells(10,1).resize(,ubound(sq)+1)=sq

 

[Revdutchie]

sq=split(Textbox1.Text)
cells(10,1).resize(,ubound(sq)+1)=sq

Dat is hem niet helemaal, dat zet alle regels in cell A10 (10,1) onder elkaar.

Wat ik wil is dat regel 1 van de textbox in A1 komt, regel 2 van de textbox in B1 etc etc

Waarbij A1 een xlUp is, dus de eerste onderste vrije regel.

 

[snb]

Jij hebt blijkbaar een Japanse Excel-versie ?

Sub tst5()
    Cells(12, 1).Resize(, 7) = Split("aa bb cc dd ee ff gg")
End Sub

 

[Revdutchie]

Jij hebt blijkbaar een Japanse Excel-versie ?

Sub tst5()
    Cells(12, 1).Resize(, 7) = Split("aa bb cc dd ee ff gg")
End Sub

Ja tuurlijk

en ik lees ook vloeiend Kazachstaans

Maar nee helaas beide niet, probeer alleen een mede forummer te helpen op dit moment.

 

[snb]

Bij mij geeft de splitsing toch echt een horizontale splitsing van elementen te zien.
Sjonge, Jacques: iets duidelijker je vragen stellen (een textbox met Multiline)

Sub tst5()
  Cells(12, 1).Resize(, 7) = Split(Textbox1.Text,vbLf)
End Sub

 

[Revdutchie]

Bij mij geeft de splitsing toch echt een horizontale splitsing van elementen te zien.
Sjonge, Jacques: iets duidelijker je vragen stellen (een textbox met Multiline)

Sub tst5()
  Cells(12, 1).Resize(, 7) = Split(Textbox1.Text,vbLf)
End Sub

Oke oke, multiline niet genoemd, maar wat heeft anders in mijn voorbeeld

a = Chr(10)

voor nut ?

Ik dacht (en denk) dat dat een enter aangeeft en zonder multiline lukt dat niet toch ?

 

[Revdutchie]

Ok, dat werk tot op heden, al heb ik de xlUp er nog niet in, sterker nog de juiste sheet selecteren lukt me niet eens !!!!!. Kan hier zo kwaad om worden, dacht het inmiddels een beetje te snappen en dan nog ga ik bij volgens mij iets simpels in de fout.

Sheets [Invoer2], Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)

Zou het moeten opslaan in de sheet met de naam die in textbox met de naam "invoer2"staat.

Alles geprobeerd, Range, With, met haakjes zonder haakjes ????

 

[Warme bakkertje]

Sheets (Invoer2.Text), Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)

 

[Revdutchie]

Sheets (Invoer2.Text), Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)

Rudi, dat werkt helaas niet, heb nu inclusief jouw code dit staan

Private Sub CommandButton7_Click()
If TextBox1.Value = "" Then
MultiPage1.Value = 2
Exit Sub
Else
Sheets (Invoer2.Text), Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)
TextBox1 = ""
MultiPage1.Value = 2
End If
End Sub

 

[Warme bakkertje]

Dan is ofwel de naam van je Textbox onjuist ofwel komen je bladnamen niet overeen, want dit werkt hier perfect.

 

[snb]

Een komma + spatie maken soms meer kapot dan je lief is (zelfs je humeur)

Sheets (Invoer2.Text), Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)

Sheets (Invoer2.Text)[COLOR="red"].[/COLOR]Cells(1, 1).Resize(, 50) = Split(TextBox1.Text, vbLf)

 

[Revdutchie]

@ Rudi en snb,

Heren, mijn excuses, het probleem was dat het een label was en geen textbox. Label weggegooid en er een textbox van gemaakt, probleem over