Die Antworten bisher zu dem Thema bringen mich leider nicht weiter, deswegen stelle ich die Frage hier einfach nochmal und schreibe gleiche mal meinen Code mit. Also ich befülle die ComboBox mit werten aus einem Bereich, den ich benannt habe. der Code sieht bisher so aus:
anz = ActiveSheet.UsedRange.Rows.Count
Dim r as Range
For Each r in Intersect(Range("Hautptauftr"), Range("1:" & anz))
if r " " Then
Userform.ComboBox1.AddItem r
End if
next r
Das ganze funktioniert auch so, aber ich habe die gleichen Werte eben relativ oft. Eine zweite Combobox wertet später dann alle Werte, die zu dem Wert aus der Combobox1 gehören aus.
kann mir jemand meinen Code irgendwie so erweitern, dass er die doppelten Werte nicht mehr anzeigt, ich bin da jetzt schon an meiner Grenze angekommen und versuche den ganzen Mittag rum mit geringem Erfolg.
Danke auf jeden Fall mal für die Hilfe,
Gruß
Florian M.