Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox-Inhalte alphabetisch sortieren

ComboBox-Inhalte alphabetisch sortieren
25.10.2004 11:46:43
Claus
Moin Leute,
Ich lese aus einer Tabelle Namen in eine ComboBox ein. Leider werden diese in der ComboBox so angezeigt, wie sie in der Reihenfolge der Tabelle (unsortiert) vorkommen.
Wie kann ich eine ComboBox alphabetisch sortieren? Apfelmann soll vor Zaunkönig in der ComboBox stehen....

Private Sub UserForm_Initialize()
VacationForm.Height = 184
Dim col2 As New Collection
Dim ycolumn As Integer
ycolumn = 4
strZelleText = Cells(3, ycolumn).Text
On Error Resume Next
Do Until (strZelleText = "")
strZelleText = VBA.Strings.Replace(strZelleText, vbLf, REPLACE_STR)
ComboBox2.AddItem strZelleText
ycolumn = ycolumn + 1
strZelleText = Cells(3, ycolumn).Text
Loop
ComboBox2.ListIndex = 0
End Sub

Vielen Dank, Claus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox-Inhalte alphabetisch sortieren
P@ulchen
Hi Claus,
tu so:


Private Sub UserForm_Initialize()
VacationForm.Height = 184
Dim col2 As New Collection
Dim ycolumn As Integer
ycolumn = 4
strZelleText = Cells(3, ycolumn).Text
On Error Resume Next
Do Until (strZelleText = "")
   strZelleText = VBA.Strings.Replace(strZelleText, vbLf, REPLACE_STR)
   ComboBox2.AddItem strZelleText
   ycolumn = ycolumn + 1
   strZelleText = Cells(3, ycolumn).Text
Loop
ComboBox2.ListIndex = 0
SortierenCombobox
End Sub
Sub SortierenCombobox()
Dim i_Erster As Integer
Dim i_Letzter As Integer
Dim i_Aktuell As Integer
Dim i_Nächster As Integer
Dim s_buffer As String
With UserForm1.ComboBox2
    If .ListCount = 0 Then Exit Sub
    i_Erster = 0
    i_Letzter = .ListCount - 1
    For i_Aktuell = i_Erster To i_Letzter
        For i_Nächster = i_Aktuell + 1 To i_Letzter
            If .List(i_Aktuell) > .List(i_Nächster) Then
                s_buffer = .List(i_Nächster)
                .List(i_Nächster) = .List(i_Aktuell)
                .List(i_Aktuell) = s_buffer
            End If
        Next i_Nächster
    Next i_Aktuell
End With
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige