Gruppe
Dialog
Problem
wei Spalten einer ListBox sollen in der Reihenfolge Spalte1, Spalte2 sortiert werden.
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