ComboBox1 sortieren A-Z

Hallo
Kann man eine ComboBox1 sortieren (A-Z) wenn man sie Anklickt ?
Das Problem ist das ich in der ComboBox1 Spalten A-BV anzeigen lasse und diese nicht nach Alphabet sortiert sind.
Die Spalten können ja nicht sortiert werden oder geht das doch dann wäre das hinfällig mit derComboBox1

Private Sub UserForm_Initialize()
'Combobox1 Schauspieler Auswählen
Dim X&
For X = 1 To 74 '

Private Sub ComboBox1_Change()
ListBox1.Clear
MyCol
Set Image21.Picture = ShowPicture(Tabelle6, ComboBox1.ListIndex + 1)
End Sub

Sub MyCol()
Dim MeineSpalte&, X&
MeineSpalte = UserForm1.ComboBox1.ListIndex + 1
With Tabelle6
For X = 2 To .Cells(Rows.Count, MeineSpalte).End(xlUp).Row
If .Cells(X, MeineSpalte) "" Then
UserForm1.ListBox1.AddItem .Cells(X, MeineSpalte)
End If
Next
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
sortieren ist kein Problem, aber dann funktionieren das Anzeigen des Bildes und der Filme in der Listbox so nicht mehr. Das musste ich umbauen.
Teste mal:

Option Explicit
Private Sub UserForm_Initialize()
Dim objArrayList As Object
Dim lngColumn As Long
Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")
With Tabelle1
For lngColumn = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
objArrayList.Add .Cells(1, lngColumn).Text
Next
End With
With objArrayList
.Sort
ComboBox1.List = .ToArray
End With
Set objArrayList = Nothing
End Sub
Private Sub ComboBox1_Change()
Dim objCell As Range
Dim lngRow As Long, lngColumn As Long
If ComboBox1.ListIndex >= 0 Then
Set objCell = Tabelle1.Rows(1).Find(What:=ComboBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
lngColumn = objCell.Column
ListBox1.Clear
With Tabelle1
For lngRow = 2 To .Cells(.Rows.Count, lngColumn).End(xlUp).Row
ListBox1.AddItem .Cells(lngRow, lngColumn).Value
Next
End With
Set Image1.Picture = ShowPicture(Tabelle1, lngColumn)
Set objCell = Nothing
End If
End If
End Sub

Gruß
Nepumuk

Private Sub UserForm_Initialize() Dim objArrayList As Object Dim lngColumn As Long Set objArrayList = CreateObject(Class:="System.Collections.ArrayList") With Tabelle6 For lngColumn = 1 To .Cells(1, 1).End(xlToRight).Column objArrayList.Add .Cells(1, lngColumn).Text Next End With With objArrayList .Sort ComboBox1.List = .ToArray End With Set objArrayList = Nothing 'Listbox Treffer Spalten einstellen With Me.Lst_Treffer .ColumnCount = 3 .ColumnWidths = "8cm;8cm;3cm" .ColumnHeads = False .RowSource = "" End With Lst_Treffer_befüllen End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox1 sortieren A-Z

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread