multiple input in 1 textbox

[Ozymandias]

Hi,

Ik heb een userform gemaakt met daarin een textbox.
Onder de properties van deze box heb ik de controlsource
gezet naar 'Sheet1!A1'.

Nu zou ik graag nog meer informatie kwijt willen in deze box,
die dan vervolgens netjes in de daaropvolgende cellen
op Sheet1 terechtkomen (A2,A3,A4 etc.)

Hoe kan ik dit het beste doen?
Ik wil niet een lange lijst met textboxes gaan maken op mijn
userform maar gewoon eentje zou het mooiste zijn als dat kan.

Ik hoop dat jullie begrijpen waar ik naar toe wil, zo niet, vraag
me op opheldering

Alvast bedankt voor het lezen en ik zie jullie reacties graag tegemoet.

Regards,


Ozymandias


Edit:

Ben achter dit stukje code gekomen, alleen werkt het nog niet naar behoren.

Private Sub TextBox1_AfterUpdate()
Dim LastR As Range
    With Sheets("Sheet1")
        Set LastR = .Range("a7")
        If Not IsEmpty(LastR) Then
            Set LastR = .Range("a" & Rows.Count).End(xlUp)(2)
        End If
    End With
    LastR.Value = Me.TextBox1.Value
    Set LastR = Nothing
End Sub

 

[MDN111]

Hello Ozymandias,

Dat leek mij een leuke opgave. Het is wel gelukt, maar niet met de ControlSource property. Als je die instelt naar een bepaalde cel, dan komen alle lijnen van de tekst box in die cel terecht. Dus ControlSource blanco laten.

In bijlage een bestandje dat misschien als basis kan dienen om op verder te werken.

Grtz,
MDN111.

 

[Ozymandias]

Bedankt voor je hulp. Ik heb het nu zoals ik wil, dank

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost (rechts bovenaan je eerste vraag)