Listenbox mit Array füllen und sortieren
28.09.2015 21:28:19
Manuel
wie schaffe ich es eine Listenfeld, welches ich mit einem Array fülle (hier nochmal vielen Dank an Beverly), sortiert in dem Listenfeld auszugeben?
Hier ist mein Code:
Public Sub Füllen1()
Dim arr() As Variant
Dim iRow, iRowU, BLetzte As Long
ListBox1.Clear
ListBox1.IntegralHeight = False
With Sheets("Tabelle20")
BLetzte = IIf(IsEmpty(.Range("B65536")), .Range("B65536").End(xlUp).Row, 65536)
For iRow = 9 To BLetzte
If .Cells(iRow, 7) "" Then
ReDim Preserve arr(0 To 6, 0 To iRowU)
arr(0, iRowU) = .Cells(iRow, 1)
arr(1, iRowU) = .Cells(iRow, 2)
arr(2, iRowU) = .Cells(iRow, 3)
arr(3, iRowU) = .Cells(iRow, 4)
arr(4, iRowU) = .Cells(iRow, 5)
arr(5, iRowU) = .Cells(iRow, 6)
arr(6, iRowU) = .Cells(iRow, 7)
'arr(7, iRowU) = .Cells(iRow, 8)
'arr(8, iRowU) = .Cells(iRow, 9)
iRowU = iRowU + 1
End If
Next iRow
End With
On Error Resume Next
ListBox1.Column = arr
On Error Resume Next
ListBox1.IntegralHeight = False
ListBox1.ColumnWidths = "220 Pt;220 Pt;200 Pt; 100 Pt"
End Sub
Wäre super wenn ihr mir helfen könntet.
Danke und beste Grüße,
Manuel