ich habe ein Modul gefunden, welches beim Öffnen meiner Excel-Datei eine ActiveX-ComboBox mit Werten aus einem definierten Bereich füllt (ohne die leeren Zellen mit aufzunehmen).
Bisheriger Code:
Sub Auto_open()
With Sheets("Kalender")
Dim Zelle As Range
.ComboBox1.Clear
With ActiveSheet
For Each Zelle In .Range(.Range("R7"), .Range("S738").End(xlDown))
If Zelle.Value "" Then .ComboBox1.AddItem Zelle.Value
Next
End With
End With
End Sub
Ich würde die Einträge dieser ComboBox jetzt gerne noch alphanumerisch sortieren lassen und redundante Einträge nicht mit aufnehmen. Leider fehlt mir die Zeit und Muße, um tiefer in die VBA-Programmierung einzusteigen. Daher hoffe ich auf einen Profi, für den diese Problemstellung ein leichtes ist! ;)P.S.: Innerhalb des Bereichs (R7:S738) gibts es im Schnitt nur ~50 Einträge, von daher wäre die Performance der Sortierung nicht ausschlaggebend.
Grüße,
Scoopa