Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrspaltige UserForm-ListBox sortieren

Gruppe

ListBox

Problem

wei Spalten einer ListBox sollen in der Reihenfolge Spalte1, Spalte2 sortiert werden.

Lösung
Den nachfolgenden Code in die benannten Module einfügen.

StandardModule: basMain

Sub CallForm()
   frmSort.Show
End Sub

ClassModule: frmSort

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdSort_Click()
   Application.ScreenUpdating = False
   Workbooks.Add
   Range(Cells(1, 1), Cells _
      (lstSort.ListCount, 2)).Value = lstSort.List
   Range("A1").Sort key1:=Range("A1"), _
      order1:=xlAscending, key2:=Range("B2"), _
      order2:=xlAscending
   lstSort.List = Range("A1").CurrentRegion.Value
   ActiveWorkbook.Close savechanges:=False
End Sub

Private Sub UserForm_Initialize()
   lstSort.List = Range("A1").CurrentRegion.Value
End Sub