'
' die Werte aus Tabelle1, Spalte A sollen in die ComboBox
' eingelesen und alphabetisch aufsteigend sortiert werden.
'
Private Sub UserForm_Activate()
Dim lZeile As Long ' For/Next Zeilen-Index
Dim lIndxA As Long ' For/Next Index - außen
Dim lIndxI As Long ' For/next Index - innen
Dim sTemp As String ' temporärer Zwischenspeicher
'
' Combobox zuvor löschen :
'
ComboBox1.Clear
'
' Combobox mit Werten aus Spalte A füllen :
'
For lZeile = 2 To [A65536].End(xlUp).Row
Me.ComboBox1.AddItem Cells(lZeile, 1)
Next
'
' Combobox sortieren :
'
For lIndxA = 0 To Me.ComboBox1.ListCount - 1
For lIndxI = 0 To lIndxA - 1
If Me.ComboBox1.List(lIndxI) > Me.ComboBox1.List(lIndxA) Then
sTemp = Me.ComboBox1.List(lIndxI)
Me.ComboBox1.List(lIndxI) = Me.ComboBox1.List(lIndxA)
Me.ComboBox1.List(lIndxA) = sTemp
End If
Next lIndxI
Next lIndxA
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen