Combobox sortieren, Sorted-Funktion will nicht?

Katey · 14. Februar 2013, 13:40

Hallo zusammen.
Eine ComboBox hat die Eigenschaft Sorted, womit man nur noch

Visual Basic-Quellcode

ComboBox1.Sorted = True

eingeben muss und es funzt... Soweit zur Theorie.
Ich habe das jetzt bei meinem Code unter

Visual Basic-Quellcode

Private Sub UserForm_Initialize()

neben dem anderen Kram, der da so steht, reingeschrieben, jedoch kennt er "Sorted" nicht und gibt mir als Fehlermeldung "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden."
Daraus schließe ich mal ganz stark, dass ich was falsch gemacht habe.
Kann mir einer von euch sagen, wo der Fehler liegt?
Ich hab Excel2007, falls das was hilft.

Neptun · 14. Februar 2013, 13:58

Hallo Katey,
die Sorted-Eigenschaft kann nur zur Entwurfszeit gesetzt
werden. Also im Eigenschaftenfenster Sorted auf True
stellen.

Sorry, das stimmte so nicht. Ich bin von einem anderen Control
ausgegangen.

tulla · 14. Februar 2013, 14:08

Wer hat dir gesagt, dass es diese Funktion gibt?
Unten ein Auschnitt der Methoden der Combobox aus der VBA.
Da gibts kein Sorted .... Diese Funktion ist unter Visual Basic 2005 bis 2012 verfügbar aber nicht in VBA (VisaulBasicforAplications)
Die einzige Möglichkeit ist hier entweder ein Array zu bestücken und dieses dann sortiert in die Combo zu schupsen oder gleich die Tabellenspalten vorher sortieren und dann einlesen.

Katey · 14. Februar 2013, 14:11

Okay, danke tulla, dann hab ich da wohl beim Recherchieren was durcheinander geworfen.
Vorher sortieren ist leider keine Option, die müssen erst in der Box sortiert werden.
Mit Arrays kenn ich mich leider nicht aus.
Schade, hatte gehofft, da gibt es eine einfache Lösung.

vbcloud · 14. Februar 2013, 14:26

Hast du mal versucht die Arten der Sortierung zu googlen ?

Weil einfach nur Sortieren geht ja nicht, man braucht ja eine Art dafür

//EDIT:
Vielleicht hilft dir ja das:
LINK <- Alphabetisch

Katey · 14. Februar 2013, 14:34

Ja, hab schon mehrere solche Posts gefunden, aber wenn ich das in meinen Code reinkopiere, bekomme ich immer eine Fehlermeldung... Na mal schauen, vielleicht findet sich noch woanders was.

Katey · 14. Februar 2013, 15:08

Mal zu dem Code in dem Link (weil ich inzwischen nichts gefunden habe, was klappt):
Ich schreibe "SortierenCombobox" an das Ende meines UserForm_Initialize()
und kopiere dann den kompletten Sub "SortierenCombobox".
Ich passe den Namen von UserForm und ComboBox an und erhalte... eine Fehlermeldung: "Laufzeitfehler '70': Eigenschaft List konnte nicht gesetzt werden. Zugriff verweigert"
Kann damit einer von euch was anfangen?

xpecidy · 15. Februar 2013, 07:08

Hallo Katey,

das hängt schlicht damit zusammen, dass du die Combobox über "Rowsource" befüllst. Mit dieser Methode hast du keine Möglichkeit, weitere Daten hinzuzufügen, außer du veränderst die Rowsource (den Bereich in der Tabelle). Rowsource ist eigentlich selbsterklärend.
Wenn du die Daten weiterhin über Rowsource befüllen willst, dann musst du die Zellen im Tabellenblatt sortieren, dann sind diese auch in der Combobox sortiert!

Andernfalls müsstest du die Werte in einer Schleife einlesen (ACHTUNG, Falls Eigenschaft Rowsource gesetzt ist, musst du diese löschen!!) und anschließend den Sortieralgo umsetzen.

Visual Basic-Quellcode

for i = erstezeile to letztezeile
deinecombobox.additem thisworkbook.sheets("deintabellenblatt").range("A" & i).value
next

Welchen Weg du wählen willst, hängt von dir ab!

lg Markus

tulla · 15. Februar 2013, 08:52

Er sagte ja bereits, dass er die Daten in dem Tabellenblatt nicht sortieren kann.
Was spricht eigendlich gegen ein temporäres Array? Was bei Additem mit Sort ausgegeben wird?

Welche Art von Daten hast da überhaupt, Zahlen oder Text?

EDIT:
Muss gerade geststellen, dass das sortieren von Arrays auch nicht mehr so unterstützt wird wie gedacht.

Katey · 15. Februar 2013, 09:02

Zahlen, Kundennummern, um genau zu sein.
Der aktuelle Code sieht so aus:

Visual Basic-Quellcode

Private Sub UserForm_Initialize()
Dim vTabelle As Worksheet
Dim vStartZeilenIndex As Integer
Dim vSpaltenindex As Byte
Dim vEndZeilenIndex As Integer
Dim vControlIndex As Byte
Set vTabelle = ThisWorkbook.Sheets("Kundendaten")
vStartZeilenIndex = 3
vSpaltenindex = 23
vEndZeilenIndex = vTabelle.Range("A" & Rows.Count).End(xlUp).Row
For vControlIndex = 1 To 1
Me.Controls("Combobox" & vControlIndex).RowSource = vTabelle.Name & "!" & _
(Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Address)
Next
Set vTabelle = Nothing
End Sub

Ich weiß, dass der RowSource-Code da eigentlich zu umständlich ist, die Box soll wirklich nur aus Spalte 24 die Werte ab Zeile 3 bis letzte belegte Zeile enthalten und das alphabetisch sortiert. Wär es also besser, die Werte anders auslesen zu lassen?

EDIT: Hab den Code jetzt mal angepasst:

Visual Basic-Quellcode

Private Sub UserForm_Initialize()
Dim vTabelle As Worksheet
Dim vEndZeilenIndex As Integer
Set vTabelle = ThisWorkbook.Sheets("Kundendaten")
Set vEndZeilenIndex = vTabelle.Range("X" & Rows.Count).End(xlUp).Row
For i = 3 To vEndZeilenIndex
ComboBox1.AddItem ThisWorkbook.Sheets("Kundendaten").Range("X" & i).Value
Next
Set vTabelle = Nothing
End Sub

Allerdings geht das mit dem EndZeilenIndex nicht, da erzählt er mir was von "Objekt erforderlich".
Was ist da nun schon wieder falsch?

xpecidy · 15. Februar 2013, 09:16

tulla schrieb:

Er Sie sagte ja bereits, dass er die Daten in dem Tabellenblatt nicht sortieren kann.

Katey, das Problem, was du jetzt wahrscheinlich noch nicht siehst ist, dass du mit dem Listindex in direkter Verbindung mit der Tabelle arbeitest.
Wenn jetzt Zeile 20 im Tabellenblatt auf einmal (durch Sortierung) an zweiter Stelle in der Combobox steht, wirft das dein Konzept über den Haufen...

Du kannst jetzt selber den Sortieralgo nutzen und dir die Kundennummern alphanumerisch einlesen lassen. Dann musst du aber bei jeder Änderung der Combobox nicht mehr den Listindex ansprechen, sondern eine Suche im Tabellenblatt nach der richtigen Kundennummer machen.

lg Markus

Katey · 15. Februar 2013, 09:18

Nuff, du hast recht... blöde Sache.
Das is komplizierter, als ich gedacht hätte...

tulla · 15. Februar 2013, 09:22

@xpecidy
Hast recht, hab ich nicht drauf geachtet.

@Katey
SORRY ! :rolleyes:

Wenn die Liste (RowSource) nicht geändert wird, sonder nur angehangen läuft alles

Die andere Möglich ist nach Auswahl in der Box nochmal in der Source nach dem Eintrag und dessen Zeile zu schauen.

Löst zwar immer noch nicht das Hauptproblem des sortierens.

xpecidy · 15. Februar 2013, 09:54

Also ich würde es mit nem Bubblesort lösen...
Namen ggf. anpassen.

Visual Basic-Quellcode

vArr = vtabelle.Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address)
While vAenderung = False
vAenderung = False
i = 1
While i < UBound(vArr)
If (vArr(i + 1, 1) < vArr(i, 1)) Then
vDummy = vArr(i, 1)
vArr(i, 1) = vArr(i + 1, 1)
vArr(i + 1, 1) = vDummy
i = 1
vAenderung = True
End If
i = i + 1
Wend
Wend
For t = 1 To UBound(vArr)
Me.ComboBox2.AddItem vArr(t, 1)
Next

Jetzt kannst du natürlich nicht mehr mit dem Listindex direkt arbeiten, sondern musst die Artikelnummer suchen.. das könntest du so machen:

Visual Basic-Quellcode

Set vSuche = vtabelle.Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Find(Me.ComboBox2.List(Me.ComboBox2.ListIndex))
If Not vSuche Is Nothing Then
MsgBox vsuche.Row
'Liefert dir die Zeile in der die Kundennummer steht
End If
Set vSuche = Nothing

Versuchs mal selber bei dir reinzubasteln

Katey · 15. Februar 2013, 09:59

Hab das jetzt in meinen Code ergänzt, der jetzt so aussieht:

Visual Basic-Quellcode

Private Sub UserForm_Initialize()
Dim vTabelle As Worksheet
Dim vStartZeilenIndex As Integer
Dim vSpaltenindex As Byte
Dim vEndZeilenIndex As Integer
Dim vControlIndex As Byte
Set vTabelle = ThisWorkbook.Sheets("Kundendaten")
vStartZeilenIndex = 3
vSpaltenindex = 23
vEndZeilenIndex = vTabelle.Range("A" & Rows.Count).End(xlUp).Row
For vControlIndex = 1 To 1
Me.Controls("Combobox" & vControlIndex).RowSource = vTabelle.Name & "!" & _
(Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Address)
Next
vArr = vTabelle.Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address)
While vAenderung = False
vAenderung = False
i = 1
While i < UBound(vArr)
If (vArr(i + 1, 1) < vArr(i, 1)) Then
vDummy = vArr(i, 1)
vArr(i, 1) = vArr(i + 1, 1)
vArr(i + 1, 1) = vDummy
i = 1
vAenderung = True
End If
i = i + 1
Wend
Wend
For t = 1 To UBound(vArr)
Me.ComboBox1.AddItem vArr(t, 1)
Next
Set vSuche = vTabelle.Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Find(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
If Not vSuche Is Nothing Then
MsgBox vSuche.Row
End If
Set vSuche = Nothing
End Sub

Allerdings lädt sich mein Excel da fast zutode und hängt sich auf...
Ich vermute, mit so vielen Werten (570) kann es nicht umgehen oder es ist mal wieder was falsch im Code...

tulla · 15. Februar 2013, 10:02

@xpecidy
Nice funzt Geile Sache!

Scheint aber bei einem Array von mehreren 100 Einträgen einzubrechen wie es bereits Katey beschreibt.

Aber es ist der kürzeste Workarround den ich bisher zu diesem Thema gefunden habe/gesehen habe.

xpecidy · 15. Februar 2013, 10:14

Joah bei 600 Einträgen rattert der DualCore auf arbeit 5 Sekunden.. Pervers lange.

Alternativ sollte man die Daten einfach temporär kompieren und Hausinternen Excelsortierrhytmus benutzen.

Neues Workbook anlegen
TempWorkbook.Range(Bereich).value = Workbook.range(Bereich)
Tempworkbook.Sort
In schleife Werte aus tempworkbook einlesen
Tempworkbook.saved = True
Tempworkbook.close 'oder hier erst savechange=false
Am besten mit Screenupdating arbeiten, damit nichts "flackert"

petaod · 15. Februar 2013, 11:08

Je größer das Array, desto ineffizienter wird BubbleSort.
Ggf. würde da QuickSort die Performance um einiges erhöhen.
Beispiele: msdn.microsoft.com/de-de/library/bb979305.aspx

xpecidy schrieb:

bei 600 Einträgen rattert der DualCore auf arbeit 5 Sekunden.

Das würden bei mir die wenigsten Benutzer akzeptieren.

xpecidy · 15. Februar 2013, 11:16

Sers petaod,

5 Sekunden sind absolut inakzeptabel!! Ohne Frage!

lg

Katey · 18. Februar 2013, 07:11

Wären es nur 5 Sekunden, wäre es ja noch okay, aber mein Excel ist ganz abgestürzt.
Zu dem Quicksort-Dings: Hübscher Code, aber irgendwie seh ich nicht, wie ich den auf meine ComboBox anpasse. Wenn ich ihn einfach so reinkopiere, sortiert er (wenig überraschend) natürlich nichts, es bleibt alles beim alten. (Was man ihm zugute halten kann, ist, dass er auch keine Fehlermeldung ausspuckt.)
Ich habe eine Zeile "QuickSort" in meinem Pirvate Sub UserForm_Initialize() hinzugefügt und dann darunter den Code kopiert, aber wie gesagt, woher soll er wissen, was er damit anstellen soll? Könnte mir da nochmal jemand auf die Sprünge helfen? Code sieht aktuell so aus:

Visual Basic-Quellcode

Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Dim z As Integer
z = ComboBox1.ListIndex + 3
For sp = 2 To 13
If IsNumeric(Controls("TextBox" & sp).Text) Then
Cells(z, sp).Value = Cells(z, sp).Value + Controls("TextBox" & sp).Text
End If
Next sp
Cells(z, 1).Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim vTabelle As Worksheet
Dim vStartZeilenIndex As Integer
Dim vSpaltenindex As Byte
Dim vEndZeilenIndex As Integer
Dim vControlIndex As Byte
Set vTabelle = ThisWorkbook.Sheets("Kundendaten")
vStartZeilenIndex = 3
vSpaltenindex = 23
vEndZeilenIndex = vTabelle.Range("A" & Rows.Count).End(xlUp).Row
For vControlIndex = 1 To 1
Me.Controls("Combobox" & vControlIndex).RowSource = vTabelle.Name & "!" & _
(Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Address)
Next
Set vSuche = vTabelle.Range(Cells(vStartZeilenIndex, vControlIndex + vSpaltenindex).Address & ":" & _
Cells(vEndZeilenIndex, vControlIndex + vSpaltenindex).Address).Find(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
If Not vSuche Is Nothing Then
MsgBox vSuche.Row
End If
Set vSuche = Nothing
QuickSort
End Sub
Private Sub QuickSort( _
ByRef ArrayToSort As Variant, _
ByVal Low As Long, _
ByVal High As Long)
Dim vPartition As Variant, vTemp As Variant
Dim i As Long, j As Long
If Low > High Then Exit Sub ' Rekursions-Abbruchbedingung
' Ermittlung des Mittenelements zur Aufteilung in zwei Teilfelder:
vPartition = ArrayToSort((Low + High) \ 2)
' Indizes i und j initial auf die äußeren Grenzen des Feldes setzen:
i = Low: j = High
Do
' Von links nach rechts das linke Teilfeld durchsuchen:
Do While ArrayToSort(i) < vPartition
i = i + 1
Loop
' Von rechts nach links das rechte Teilfeld durchsuchen:
Do While ArrayToSort(j) > vPartition
j = j - 1
Loop
If i <= j Then
' Die beiden gefundenen, falsch einsortierten Elemente
austauschen:
vTemp = ArrayToSort(j)
ArrayToSort(j) = ArrayToSort(i)
ArrayToSort(i) = vTemp
i = i + 1
j = j - 1
End If
Loop Until i > j ' Überschneidung der Indizes
' Rekursive Sortierung der ausgewählten Teilfelder. Um die
' Rekursionstiefe zu optimieren, wird (sofern die Teilfelder
' nicht identisch groß sind) zuerst das kleinere
' Teilfeld rekursiv sortiert.
If (j - Low) < (High - i) Then
QuickSort ArrayToSort, Low, j
QuickSort ArrayToSort, i, High
Elsea
QuickSort ArrayToSort, i, High
QuickSort ArrayToSort, Low, j
End If
End Sub
Private Sub ComboBox1_Change()
Label25.Caption = ThisWorkbook.Sheets("Kundendaten").Range("A" & ComboBox1.ListIndex + 3).Value
End Sub

Combobox sortieren, Sorted-Funktion will nicht?

Combobox sortieren, Sorted-Funktion will nicht?

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

tulla schrieb:

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

xpecidy schrieb:

Visual Basic-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben