ListBox sortieren

wonne69 · 2009-03-18T13:42:02+00:00

Hallo zusammen... Ich suche eine Möglichkeit die Zeilen, die in einer ungebundenen ListBox stehen, durch klicken auf bestimmte ColumnHeads zu sortieren, nachdem die Listbox gefüllt wurde. Da die ListBox aus mehreren Spalten eines Worksheets gefüllt wird, steht der Inhalt nur sortiert nach Spalte A (Lfd. Nummer) drin. Die Sortierung soll durch klicken in den ColumnHeads entweder nach Datum oder lexikographisch erfolgen. Ist das überhaupt möglich?

Hallo,
... brauchbares zusammengebastelt.
Nicht elegant aber, scheint aber auf den ersten Blick zu funktionieren.

Option Explicit

Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
' ListView-Spalten auf optimale Breite setzen 
Public Sub LVColumnWidth(oListView As MSComctlLib.ListView)
Dim Col As Long
 With oListView
  For Col = 1 To .ColumnHeaders.Count - 1
   .ColumnHeaders(Col).Width = .Width / .ColumnHeaders.Count
  Next Col
  
  SendMessage .hwnd, &H1000 + 30, .ColumnHeaders.Count - 1, ByVal -2
 End With
End Sub

Private Sub UserForm_Initialize()
Dim MeArea
Dim i As Long

MeArea = Range("A2:C" & Cells(Rows.Count, 3).End(xlUp).Row)
 
 With ListView1
  .ColumnHeaders.Add 1, , Range("A1")
  .ColumnHeaders.Add 2, , Range("B1")
  .ColumnHeaders.Add 3, , Range("C1")
  .View = lvwReport
  
 For i = 1 To Ubound(MeArea, 1)
  .ListItems.Add i, , MeArea(i, 1)
  .ListItems(i).SubItems(1) = MeArea(i, 2)
  .ListItems(i).SubItems(2) = MeArea(i, 3)
 Next i
 End With
 LVColumnWidth ListView1
End Sub

Gruß Tino

Hallo,
so ganz genau stimmt es nicht,
die letzte Spalte ist zu breit bzw. zu schmal je nach dem ob der Balken links da ist oder auch nicht.
Habe jetzt den Rest der hinten übrig bleibt auf die anderen verteilt.

Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
' ListView-Spalten auf optimale Breite setzen 
Public Sub LVColumnWidth(oListView As MSComctlLib.ListView)
Dim Col As Long
Dim sngWidth As Single

 With oListView
  
  For Col = 1 To .ColumnHeaders.Count - 1
   .ColumnHeaders(Col).Width = .Width / .ColumnHeaders.Count
  Next Col
  
  SendMessage .hwnd, &H1000 + 30, .ColumnHeaders.Count - 1, ByVal -2
  sngWidth = .ColumnHeaders(.ColumnHeaders.Count - 1).Width
  sngWidth = sngWidth + ((.ColumnHeaders(.ColumnHeaders.Count).Width - sngWidth) / .ColumnHeaders.Count)
  
  For Col = 1 To .ColumnHeaders.Count
   .ColumnHeaders(Col).Width = sngWidth
  Next Col
  
 End With
End Sub

Gruß Tino

Forumthread: ListBox sortieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

ListBox sortieren

Forumthread: ListBox sortieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread