Sortieren im Kombobox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortieren im Combobox

07.12.2003 11:02:41

Nepumuk

AW: Sortieren im Combobox

07.12.2003 11:20:06

Franz W.

Nachfrage

07.12.2003 12:12:13

Franz W.

AW: Nachfrage

07.12.2003 12:19:41

Nepumuk

Danke, mache weiter

07.12.2003 12:21:26

Franz W.

AW: Danke, mache weiter

07.12.2003 13:32:57

Franz W.

Danke, ich hab's

07.12.2003 16:47:26

Franz W

AW: Sortieren im Kombobox

07.12.2003 11:27:47

Thomas Risi

AW: Sortieren im Kombobox

07.12.2003 11:34:49

Franz W.

Hallo Franz,
das geht so nicht. Wenn du eine ComboBox / ListBox mit ListFillRange, oder in einem UserForm mittels RowSource füllst, ist der Inhalt der Box ein Abbild der Tabelle und daher nicht sortierbar. Da musst die Box entweder mit der AddItem - Methode oder über die List - Eigenschaft füllen.
Hier mal ein Beispiel, wie das sortieren in der ListBox eines UserForms funktioniert:


Option Explicit
Private Sub CommandButton1_Click()
Call sortieren(0, ListBox1.ListCount - 1)
End Sub
Private Sub sortieren(Untergrenze As Long, Obergrenze As Long)
Dim index1 As Long, index2 As Long, Element As String, Zwischenspeicher As String
index1 = Untergrenze
index2 = Obergrenze
Zwischenspeicher = Val(ListBox1.List(((Untergrenze + Obergrenze) / 2) \ 1))
Do
Do While Val(ListBox1.List(index1)) < Val(Zwischenspeicher)
index1 = index1 + 1
Loop
Do While Val(Zwischenspeicher) < Val(ListBox1.List(index2))
index2 = index2 - 1
Loop
If index1 <= index2 Then
Element = ListBox1.List(index1)
ListBox1.List(index1) = ListBox1.List(index2)
ListBox1.List(index2) = Element
index1 = index1 + 1
index2 = index2 - 1
End If
Loop Until index1 > index2
If Untergrenze < index2 Then Call sortieren(Untergrenze, index2)
If index1 < Obergrenze Then Call sortieren(index1, Obergrenze)
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 50 To 1 Step -1
ListBox1.AddItem i
Next
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk

Hallo Nepumuk,

da ist ja ganz schön was drin für mich!!! Bin schwer am kämpfen. Komme aber glaub ich langsam weiter. Kämpfe jetzt grad allerdings mit folgendem Problem:

Ich habe die Listbox 4-spaltig gemacht und versuche einen 4-spaltigen Zellenbereich mit dem Namen "Suchliste" einzulesen wie folgt:


Private Sub UserForm_Initialize()
ListBox1.List = Range("Suchliste")
End Sub

Und jettz kommt die Fehlermeldung: " Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftsfeldes ungültig. " Die Meldung kommt schon bei der Call-Anweisung in:


Private Sub CommandButton1_Click()
Call sortieren(0, UserForm1.ListBox1.ListCount - 1)
UserForm1.Show
End Sub

Kommentiere ich die Call-Zeile aus, dann kommt die Fehlermeldung eben bei der zweiten Zeile. Hat also anscheinend nichts mit dem Sortieren zu tun?!?

Was mache ich da falsch, bitte?

Grüße
Franz

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread