Hallo Miteinander
Durch "Recherche" hier am Board habe ich mir MAkros herausgezogen welche Comboboxen füllen ohne doppelte, klapt auch super. Nur habe ich 20 Combos und leider dauert der Vorgang schon recht lange. Gibt es einen besseren Code bzw. gibt es ein MAkro was in der SPalte den schon gesetzten Autofilter in meine Combobox übernehmen kann?
Hier mal mein Code
Dim exist As Boolean
For i = 1 To Worksheets("Tabelle1").Cells(65536, 4).End(xlUp).Row
exist = False
For j = 1 To UserForm1.Chkbox1.ListCount
If Worksheets("Tabelle1").Cells(i, 4).Value = _
UserForm1.Chkbox1.List(j - 1) Then _
exist = True: Exit For
Next j
If exist = False Then _
UserForm1.Chkbox1.AddItem _
Worksheets("Tabelle1").Cells(i, 4).Value
Next i
An dieser Stelle schon einmal vielen Dank für euere Mühe, finde das Board hier echt klasse!