ersuche wieder einmal um unterstützung. würde gerne mein formular "daten" vor ausgabe in der combobox1 alphabetisch sortieren.
mein derzeitiger stand:
Private Sub ComboBox1_Change()
Dim IRow As Long
Set wks = Worksheets("Daten")
IRow=ComboBox1.ListIndex+2
TextBox1.Text=wks.Cells(IRow,2)
TextBox2.Text=wks.Cells(IRow,5)
TextBox3.Text=wks.Cells(IRow,7)
TextBox4.Text=wks.Cells(IRow,9)
TextBox5.Text=wks.Cells(IRow,11)
....
End Sub
ersuche um einfügung der sortierroutine.
vielen dank.
lg. michael