Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen

Mehrspaltige listbox sortieren

Betrifft: Mehrspaltige listbox sortieren von: Dirk
Geschrieben am: 20.11.2014 17:53:12

Hallo ins Forum,

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

  

Betrifft: AW: Mehrspaltige listbox sortieren von: Hajo_Zi
Geschrieben am: 20.11.2014 17:58:15

sortiere in der Tabelle ist erheblich einfacher.
https://www.herber.de/bbs/user/93918.xls


GrußformelHomepage


 

Beiträge aus den Excel-Beispielen zum Thema "Mehrspaltige listbox sortieren"