habe folgenden code mit dem eine Listbox gefüllt wird.
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
nun möchte ich das dies genau in der form in eine textbox kopiert wird.
ist das überhaupt möglich?
andersherum funktioniert es soweit ich beim googeln herausgefunden habe, jedoch für dieses problem konnte ich nichts gescheites finden.
gruß
selo