Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrzeilige Textbox

Mehrzeilige Textbox
17.01.2017 19:12:50
Benedikt
Guten Abend zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrzeilige Textbox
17.01.2017 19:28:27
Uwe
Hallo Benedikt,
Sheets("Bericht").Cells(Rows.Count, 2).End(xlUp).Offset(2, 0).Value = Replace(UserForm1.TextBox1, vbNewLine, " - ")
Gruß Uwe
Vielen Dank Uwe - Weltklasse
17.01.2017 20:25:44
Benedikt
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige