kann mir zufällig jemand sagen ob es Möglich ist nachdem man Wert in eine ComboBox eingelesen hat diese alphabetisch zu sortieren. Wenn ja wäre es klasse wenn man mir auch sagt wie : )
Danke für eure Hilfe.
Gruß
Christian
Private Sub Box1_GotFocus()
Dim Bereich As Range
Set Bereich = ActiveWorkbook.Worksheets("DeineTBlatt").Range("DeinDatenbereichFürDieBox")
Dim i As Integer
Dim Daten As Variant
With Box1
.Clear
'Daten holen
Daten = Bereich
'sortieren
Call QuickSort_Feld(Daten, LBound(Daten, 1), UBound(Daten, 1), False)
'schreiben
For i = LBound(Daten) To UBound(Daten)
If Daten(i, 1) "" Then
.AddItem (Daten(i, 1))
End If
Next i
End With
End Sub
Private Sub QuickSort_Feld(DasFeld, StartUnten, EndeOben, Absteigend As Boolean)
'QuickSort Standard
'hptt://www.online-excel.de/excel/singsel_vba.php?f=24 , bissel angepasst von mir
Dim iUnten As Long, iOben, iMitte, Y
iUnten = StartUnten
iOben = EndeOben
iMitte = DasFeld((StartUnten + EndeOben) / 2, 1)
While (iUnten StartUnten)
iOben = iOben - 1
Wend
Else
While (DasFeld(iUnten, 1) > iMitte And iUnten DasFeld(iOben, 1) And iOben > StartUnten)
iOben = iOben - 1
Wend
End If
If (iUnten
=========================================
Gruß
Ralph