Listbox rückwärts sortieren
24.10.2006 15:28:20
uwe
wie kann ich eine Listbox alphabisch RÜCKWÄRTS sortieren?
(Z zuerst und zuletzt A)
Folgendes Makro habe ich:
Sub sortieren()
'
Option Explicit
Sub DialogAufruf()
frmListe.Show
End Sub
Option Explicit
Private Sub cmdWeiter_Click()
Unload Me
End Sub
public wks as worksheet
Private Sub lstMulti_Click()
Range("D1") = lstMulti.Value
End Sub
Private Sub UserForm_Initialize()
Dim intLastRow As Integer
Set wks = ActiveWorkbook.Worksheets("Datenbank")
intLastRow = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
lstMulti.List = wks.Range(wks.Cells(2, 1), wks.Cells(intLastRow, 3)).Value
End Sub
Gruss
Uwe