mehrspaltige Ufrm Listbox
11.01.2005 20:32:19
Peter
ich habe diese Prozedur zum einlesen in eine mehrspaltige Listbox bei Herber gefunden.Ich habe jedoch noch einige Fragen.
1.---Kann man beim einlesen der Daten in die Listbox diese Daten nach Spalte B alphabet. sortieren?
2.---Wie lege ich die Spaltenbreite in einer mehrspaltigen Listbox fest?
3.---Kann man den Spalten eine Überschrift zuweisen?
Danke Peter
Private Sub UserForm_Initialize()
Dim arrValues() As Variant
Dim intLastRow As Integer, intRow As Integer, intCol As Integer, intRowU As Integer
lstMultiCol.Clear
intLastRow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intLastRow
If Not IsEmpty(Worksheets(1).Cells(intRow, 1)) Then
ReDim Preserve arrValues(0 To 4, 0 To intRowU)
arrValues(0, intRowU) = Worksheets(1).Cells(intRow, 1)
arrValues(1, intRowU) = Worksheets(1).Cells(intRow, 2)
arrValues(2, intRowU) = Worksheets(1).Cells(intRow, 3)
arrValues(3, intRowU) = Worksheets(1).Cells(intRow, 4) 'geändert
arrValues(4, intRowU) = Worksheets(1).Cells(intRow, 5) 'geändert
intRowU = intRowU + 1
End If
Next intRow
lstMultiCol.Column = arrValues
End Sub
Anzeige