Zeilen aus Textbox in Excelzellen schreiben

[Nora Fernandez]

Hallo Leute,
ich wünsche euch allen ein frohes neues Jahr 2016.

Habe folgendes Problem: Ich habe in einer Textbox im Multiline-Modus 10 Zeilen Text
untereinander stehen. Jede einzelne Textzeile aus der Textbox soll nun ebenfalls untereinander
in eine Excelzelle geschrieben werden. Wie bekomme ich das am effektivsten hin?

Ich brauche praktisch die Umkehrung dieses Befehls:

PHP-Code:

TextBox1 = Join(Application.Transpose(Range("A1:A10").Value), vbLf) 


Statt Einlesen in die Textbox, Ausgabe in die Zeilen.

Vielen Dank schon mal für eure Bemühungen im voraus
Nora

[GMG-CC]

Moin Nora,

auch dir ein frohes neues Jahr. Wenn ich dich richtig verstanden habe …

Code:

Sub WiederZurueck()
  Dim Teile, StartZeile As Integer, StartSpalte As Integer
  Dim ZielBereich As Range
 
  StartZeile = 5
  StartSpalte = 7
  Teile = Split(TextBox1, Chr(10))
  Set ZielBereich = Cells(StartZeile, StartSpalte).Resize(UBound(Teile) + 1, 1)
   ZielBereich = WorksheetFunction.Transpose(Teile)
End Sub

… sollte es das sein.

[Kuwer]

Hallo Nora,

Range("A1:A10").Value = Application.Transpose(Split(TextBox1, vbLf))

Gruß Uwe

[pefeu]

Hallo Nora,

versuche es so:

Code:

Dim vTemp  As Variant

  vTemp = Split(TextBox1.Value, vbLf)
  Range("A1:A" & UBound(vTemp) + 1) = Application.Transpose(vTemp)

Gruß Peter

[Nora Fernandez]

Vielen Dank Leute!
Nora