Listbox sortieren

[Steffl]

Hallo Mario,

dann hoffen wir das es reicht.

[M.Wichmann]

Leider funktioniert das nicht so ohne weiteres.

Aber Grundsätzlich sollte diese UF fast identisch sein:

http://www.clever-excel-forum.de/attachm...?aid=13149

[Steffl]

Hallo Mario,

ich habe hier das Userform_Initialize-Ereignis so

Code:

Private Sub UserForm_Initialize()
   Dim lZeile As Long
   Dim loLetzte As Long
   Dim objArray As Object
   loLetzte = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row           ' letzte belegte in Spalte A (1)
  
  
   Set objArray = CreateObject("system.collections.arraylist")
   'Alle TextBoxen leer machen
   TextBox1 = ""
   TextBox2 = ""
'   ComboBox2 = ""
   TextBox4 = ""
   TextBox5 = ""
   TextBox6 = ""
   TextBox7 = ""
'   ComboBox1 = ""
   'In dieser Routine laden wir alle vorhandenen
   'Einträge in die ListBox1
   ListBox1.Clear 'Zuerst einmal die Liste leeren
  
      
   'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
   For lZeile = 2 To loLetzte          'Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
      'Aktuelle Zeile in die ListBox eintragen
'      ListBox1.AddItem Tabelle1.Cells(lZeile, 1).Value
      objArray.Add Tabelle1.Cells(lZeile, 1).Value
   Next lZeile
  
   objArray.Sort
   ListBox1.List = objArray.toarray
'   ListBox1.Value = ListBox1.List(0)
   'Loop
'   ComboBox1.RowSource = "Tabelle2!A3:A10"
'   ComboBox2.RowSource = "Tabelle2!B3:B15"
End Sub

geändert und da hat es geklappt. 3 Codezeilen eingefügt, 2 auskommentiert und 1 Zeile Variablendekleration.

[M.Wichmann]

Herzlichen Dank. Funktioniert.