ListBox sortieren
21.06.2008 12:32:00
Jonathan
hab mit Hilfe von google.de zwar viele Beispiele gefunden, wie ich eine Listbox sortieren kann, allerdings waren alle nur für den Fall anzuwenden, dass die Daten in einem Sheet stehen.
Wie kann ich diese ListBox sortieren? Ich habe (Thread weiter unten) über jede Spalte einen Button erstellt, beim Klick auf diesen möchte ich nach der jeweiligen Spalte sortieren. Als zweites Sortierkriterium soll dann immer Spalte eins zu Grunde gelegt werden.
Private Sub UserForm_Initialize()
Dim DatenArbeit As Variant
'0 lfdNr
'1 Jahr
'2 Klasse + Nr
'3 Fach
'4 ArbeitNr
'5 Arbeit Name
'6 Datum
With Me.list_arbeit
.ColumnCount = 7
.ColumnWidths = "0,8cm;1,5cm;1,5cm;3cm;1,5cm;4,5cm;3cm"
.Clear
End With
Dim objSheet As Object
If Sheets.Count > 8 Then
For Each objSheet In ThisWorkbook.Sheets
If objSheet.Index > 8 Then
DatenArbeit = Split(objSheet.Name, "-")
Me.list_arbeit.AddItem
list_arbeit.List(list_arbeit.ListCount - 1, 0) = DatenArbeit(0)
list_arbeit.List(list_arbeit.ListCount - 1, 1) = DatenArbeit(1)
list_arbeit.List(list_arbeit.ListCount - 1, 2) = DatenArbeit(2) & " " & _
DatenArbeit(3)
list_arbeit.List(list_arbeit.ListCount - 1, 3) = DatenArbeit(4)
list_arbeit.List(list_arbeit.ListCount - 1, 4) = DatenArbeit(5)
list_arbeit.List(list_arbeit.ListCount - 1, 5) = Sheets(objSheet.Name). _
Range("B5").Value
list_arbeit.List(list_arbeit.ListCount - 1, 6) = Sheets(objSheet.Name). _
Range("D1").Value
End If
Next
Else
Me.list_arbeit.AddItem "Es sind keine gespeicherten Arbeiten vorhanden."
End If
End Sub
Jonathan
Anzeige