ich benötige eure Hilfe bei der Übertragung der Daten aus der Listbox in eine andere Tabelle(hier: Tabelle1). Das Problem ist der Übertrag der 2. Spalte. Hierbei handelt es sich um Text mit Zeilenumbruch.
Die ListBox befülle ich mit folgendem Code:
With ListBox1
.Clear
.ColumnCount = 10
.ColumnWidths = "2,2cm;6,5cm;2cm;4cm;3,5cm;3,5cm;0cm;0cm;0cm;0cm" 'Spalte 6 Bestand wird ausgeblendet
'hier geändert von i=9 auf i=10 (ohne die Kopfzeilen)
'Spaltenbeschriftung über Label
For i = 11 To Worksheets(wsName).Cells(Rows.Count, "B").End(xlUp).Row '11=ohne Saldozeile
Li = i - 9
str = Worksheets(wsName).Cells(i, 3)
If CDate(Worksheets(wsName).Cells(i, 2)) >= Startdatum And CDate(Cells(i, 2)) 9 Then
If str = "" Then str = " "
arr = Split(str, " ")
str2 = arr(0)
For ii = 1 To UBound(arr)
If Len(str2 & arr(ii)) + 1
Wie bekomme ich den Orginaltext in die entsprechende Zelle bezüglich: " .List(LC, 1) = Worksheets(wsName).Cells(i, 3) 'Original-Text speichern"Besten Dank für eure Hilfe.
Gruss
Peter