Userform Daten übertragen

[Thomas78]

Hallo Ralf,

trotzdem danke !

Ich habe es mit folgendem Code geschafft, allerdings fehlt mir hier noch die Sortierfunktion von A-Z:

Code:

Private Sub UserForm_Initialize()

Dim objDic As Object
Dim lngZ As Long

Set objDic = CreateObject("Scripting.Dictionary")

For lngZ = 4 To Cells(Rows.Count, 4).End(xlUp).Row
  objDic(Cells(lngZ, 4).Value) = 0
Next

Me.ComboBox1.List = objDic.keys

End Sub

Hat hier jemand eine Idee?

Vielen Dank nochmal !

[schauan]

Hallo Thomas,

zum Sortieren könntest Du z.B. die Daten in einen freien Bereich kopieren und mit Sortieren sortieren und dann zurückholen.

Ansonsten schaue mal nach QuickSort oder BubbleSort, da gibt es eine Reihe Beispielcodes, z.B. hier:
http://www.online-excel.de/excel/singsel_vba.php?f=24

[atilla]

Hallo Thomas,

warum machst Du es nicht wie Chris es Dir gezeigt hatte:   Kombinationsfeld mit Namensbereich

Dort hattest Du doch geschriebne, dass es funktioniert.

[Thomas78]

@schauan

Danke für den Link, ich werd mir das mal anschauen!

@atilla

Das war natürlich auch mein erster Gedanke, aber ich konnte es nicht auf die Userform abändern. Ich denke dass das allein die Schuld von Excel ist und nicht an meiner Dummheit liegt... :20: 
Aber ich habs sowieso heute nochmal vorgehabt auszuprobieren, vielleicht haben sich über Nacht ein paar Gehirnzellen zusammengetan und es geht einfacher.

Vielen Dank euch beiden!

Schöne Grüße

Thomas