aus listbox in textbox kopieren

Private Sub UserForm_Initialize()
Dim lngstartRow As Long
Dim varVgl As Variant
varVgl = Application.Match(ActiveSheet.Cells(1, 13), ActiveSheet.Columns(1), 0)
lngstartRow = CLng(varVgl)
Dim wks As Worksheet, Zelle As Range, i As Long, Werte(), fremd()
Set wks = Sheets("cl")
With wks
ReDim Werte(Application.WorksheetFunction.CountIf(.Range(.Cells(lngstartRow, "I"), _
.Cells(.Rows.Count, "I").End(xlUp)), ">=0") - 1, 4)
i = 1
For Each Zelle In .Range(.Cells(lngstartRow, "A"), .Cells(.Rows.Count, "A").End(xlUp))
If Zelle.Offset(0, 8).Value > 0 Then
Werte(0, 0) = "Datum"
Werte(0, 1) = "a"
Werte(0, 2) = "b"
Werte(0, 3) = "c"
Werte(0, 4) = "d"
Werte(i, 0) = Zelle.Value 'Spalte A
Werte(i, 1) = Zelle.Offset(0, 1).Value
Werte(i, 2) = Zelle.Offset(0, 2).Value
Werte(i, 3) = Zelle.Offset(0, 13).Value
Werte(i, 4) = Zelle.Offset(0, 9).Value
i = i + 1
End If
Next
'End With
With Me.ListBox1
.List = Werte()
.ColumnCount = lngstartRow
.TextAlign = fmTextAlignCenter
ReDim Werte(0)
End With
End With
End Sub