Mehrspaltige listbox sortieren
20.11.2014 17:53:12
Dirk
ich sitze seit 2 Tagen an einem Problem...
Ich möchte eine mit Kundendaten gefüllte, mehrspaltige Listbox über
zwei CommandButton sortieren können. CB1 soll nach Kunden-Nummer (Spalte 1),
CB2 nach Kunden-Namen (Spalte 4) sortieren.
Ein kleiner Schritt für Excel-Profi's, ein Riesenschritt für mich....
Vielen Dank im Voraus
Dirk
P.S. : Hier der Code zum Füllen der Listbox
Private Sub UserForm_Initialize()
Aplication.ScreenUpdating = False 'flackern abschalten
Dim AppExcel As Object
Dim Pfad As String
Dim Datei As String
Dim arrWerte As Variant
Pfad = ActiveWorkbook.Sheets("Verzeichnisse").Range("A1").Value
Datei = "KuDaBa.xlsx"
With MultiPage1.Pages(4).LBM1P4_0001
.ColumnCount = 10
.ColumnWidths = "2,0cm;1,5cm;2,5cm;4,5cm;4,5cm;4,5cm;1,0cm;2,0cm;4,5cm;0cm"
End With
Set AppExcel = GetObject(Pfad & Datei)
arrWerte = AppExcel.Sheets("KuDaBa").[A1:J65536]
MultiPage1.Pages(4).LBM1P4_0001.List = arrWerte
AppExcel.Close False
Set AppExcel = Nothing
Application.ScreenUpdating = True
End Sub