Der Text aus der mehrzeiligen Textbox soll in die nächste freie Zelle Spalte 2 eingefügt werden. Gewünscht ist der ganze Text auf einer Linie
Sheets("Bericht").Cells(Rows.Count, 2).End(xlUp).Offset(2, 0).Value = UserForm1.TextBox1
Den Zeilenumbruch entferne ich mit:
Sheets("Bericht").Cells(Rows.Count, 2).End(xlUp).Offset(0, 0).WrapText = False
Jetzt steht der ganze Text aneinandergereiht in der Zelle.
Textbox Eingabe:
Heute ist ein kalter Tag
Morgen wird es nicht besser
usw.
Ausgabe in Zelle: Heute ist ein kalter TagMorgen wird es nicht besserusw.
Wie bekomme ich einen Leerschlag oder ein - zwischen die einzelnen Texblöcke?
Vielen Dank für eure Hilfe