Hallo alle zusammen,

ich habe so ein ähliches problem, wie das oben genannte und bin am verzweifeln, weil ich schon seit einer woche nicht mehr weiterkomme und ich hoffe es kann mir jemand helfen...

Ich habe eine Textbox, in der der User dann einen beliebig langen Text eingeben können soll und auch bereits mit einer Bildlaufleiste für den Fall, dass der Text wirklich lange wird. Ich habe es auch schon geschafft die Zeichenanzahl pro Zeile innerhalb der Textbox zu begrenzen, sodass dann der Cursor automatisch in die nächste Zeile hüpft.

Nun soll aber dann der Inhalt der Textbox beispielsweise 10 Zeilen, auch genau so an die Exceloberfläche übertragen werden. Sprich, dass der Text dann z.B. an (B1:J1)-(B10:J10) übergeben wird, sodass eine Zeile in der Textbox auch einer Zeile in Excel entspricht. B1:J1 soll dabei als eine Zelle verbunden sein und die Verbindung soll sich immer um eines verlängern, wenn die Länge des Textes es erfordert.
Ich habe echt keine Ahnung, wie ich das schaffe und ich hoffe irgendwer versteht mein Problem und kann mir helfen.

Bis jetzt sieht der Code meiner Textbox folgendermaßen aus:

Private Sub TextBox1_Change()

Dim vntTextArray As Variant
Dim intIndex As Integer
vntTextArray = Split(TextBox1.Text, vbCrLf)
For intIndex = 0 To UBound(vntTextArray)
If Len(vntTextArray(intIndex)) > 85 Then vntTextArray(intIndex) = Left$(vntTextArray(intIndex), 85) & vbCrLf & Mid$(vntTextArray(intIndex), 86)
Next
TextBox1.Text = Join(vntTextArray, vbCrLf)

End Sub


Mittels einem "Submit"- Button an der Userform soll dann der in der Textbox geschriebene Text an die Zellen übertragen werden.

Der sieht bis jetzt so aus (steht noch nicht viel drin, weil ich keine Ahnung hab):


Private Sub CommandButton1_Click()

Range("B11") = "1. Reason for the Job:"
Dim zaehler As Integer
zaehler = zaehler + 1
Range("B" & zaehler & ":J" & zaehler).PasteSpecial = TextBox1.Value
PasteSpecial.Merge

Ich bin überaus dankbar für jede Hilfe.

LG Sebastian