HERBERS Excel-Forum - die Dialoge

Thema: Mehrspaltige ListBox sortieren

Home
Zwei Spalten der ListBox werden in der Reihenfolge Spalte1, Spalte2 sortiert. Mehrspaltige ListBox sortieren
  • Prozedur: cmdSort_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Mehrspaltige ListBox sortieren
  • Ablaufbeschreibung:
    • Bildschirmatkualisierung ausschalten
    • Neue Arbeitsmappe anlegen
    • ListBox-Inhalt in Arbeitsblatt einlesen
    • Arbeitsblatt sortieren
    • Arbeitsblatt-Werte in ListBox zurücklesen
    • Temporäre Arbeitsmappe ungespeichert schließen
    • Bildschirmatkualisierung einschalten
  • Code:

    
    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
       Application.ScreenUpdating = True
    End Sub