Meine Frag an euch Experten:
Mittels folgendem Code wird eine ListBox gefüllt:
Dim i As Integer
Dim lng As Long
With frmDaten
.ListBox1.Clear
Sheets("CD_Archiv").Activate
i = 0
For lng = 5101 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 158).Value = CDbl(.TextBox2) Then
.ListBox1.AddItem Cells(lng, 157).Value
.ListBox1.Column(1, i) = Cells(lng, 158).Value
.ListBox1.Column(2, i) = Cells(lng, 159).Value
.ListBox1.Column(3, i) = Cells(lng, 160).Value
.ListBox1.Column(4, i) = Cells(lng, 161).Value
.ListBox1.Column(5, i) = Cells(lng, 162).Text
.ListBox1.Column(6, i) = Cells(lng, 163).Text
.ListBox1.Column(7, i) = Cells(lng, 164).Value
i = i + 1
Else
End If
Next lng
End With
Der Wert der sich im Tabellenblatt an dieser Stelle verbirgt - .ListBox1.Column(5, i) = Cells(lng, 162).Text - kann gelegentlich länger sein als wie in der ListBox derzeitig angezeigt werden kann. Kann man das mehrzeilig, etwa mittels Zeilenumbruch darstellen? Ich hoffe ihr konntet mich verstehen! Für jede Hilfe wie immer dankbar!
L.G. Frank H.