Clever-Excel-Forum

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

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.

Hallo Nora,

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

Gruß Uwe

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

Vielen Dank Leute!
Nora

Nora Fernandez

GMG-CC

Kuwer

pefeu

Nora Fernandez