title image


Smiley Spalte in Combo box ohne Duplikate
Hi leutz,



wie kann ich den inhalt einer bestimmten spalte in einer Combobox ausgeben lassen und ohne duplikate ?



Habe einen Code, dies jedoch lange braucht, wenn man große Datensätze hat.



hier der code :

ComboBox1.Text = Blattname





zeilenanzahl = Sheets(ComboBox1.Text).Cells(Rows.Count, 2).End(xlUp).Row

Dim Arr()



Dim duplikat As Integer

Dim EintragVorhanden As Boolean

If Not Sheets(ComboBox1.Text).Range("B" & 1) = "Datum" Then

ComboBox2.Clear

ComboBox2.Enabled = False

ComboBox3.Clear

ComboBox3.Enabled = False

Else

ComboBox2.Enabled = True

ComboBox3.Enabled = True



End If





If ComboBox2.Enabled = True Then

ComboBox2.Clear

For i = 2 To zeilenanzahl

EintragVorhanden = False

For duplicat = 0 To ComboBox2.ListCount - 1



If UCase(ComboBox2.List(duplicat)) = UCase(Sheets(ComboBox1.Text).Range("B" & i)) Then

EintragVorhanden = True

Exit For

End If





Next duplicat

If EintragVorhanden = False Then ComboBox2.AddItem Sheets(ComboBox1.Text).Range("B" & i)

Next i

End If



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: