Füllen einer ComboBox ohne doppelte Werte
13.05.2003 21:01:22
Florian
ich möchte eine Combobox mit Werten aus einer Tabelle füllen und dabei doppelte Werte nicht berücksichtigen.
Ich weiß allerdings nicht wie.
Wäre nett, wenn mir einer helfen könnte.
Gruß aus Aachen,
Florian
Private Sub UserForm_Initialize()
Dim i, j As Integer
Dim ListenElement As Variant
'Füllen der ComboBox1 mit den Werten aus Tabelle
For i = 1 To 600
If ActiveSheet.Range("a" & i).Value <> "" And Left_(ActiveSheet.Range("a" & i).Value, 1) = "R" Then
ListenElement = ActiveSheet.Range("a" & i).Value
ComboBox1.AddItem ListenElement
End If
Next i
ComboBox1.Style = fmStyleDropDownList
ComboBox1.BoundColumn = 0
ComboBox1.ListIndex = 0
End Sub
Anzeige