ok, so i used the code below to fill a list box:


Code:
--------------------
Private Sub UserForm_Initialize()

Dim oIngredient As Ingredient
Dim oIngredients As New Ingredients
Dim avIngredients() As Variant
Dim i As Integer

For i = 1 To oIngredients.Count
Set oIngredient = oIngredients.Item(i)
avIngredients(i) = oIngredient.IngredientType
If oIngredient.Type = previoustype Then ' need something here
GoTo Skip
Else
Me.lstPreDefinedTypes.AddItem (CStr(oIngredient.IngredientType))
End If
Skip:
Next i

End Sub
--------------------


well, not exactly; the "oIngredient.Type = previoustype" needs to be
replaced with something that will look through the array being filled
and return true if it finds a duplicate.
is there a way to do this?

thanks ahead of time,
sven


--
medicenpringles


------------------------------------------------------------------------
medicenpringles's Profile: http://www.excelforum.com/member.php...o&userid=16458
View this thread: http://www.excelforum.com/showthread...hreadid=478659

See one method at John Walkenbach's site:

http://www.j-walk.com/ss/excel/tips/tip47.htm
Filling a ListBox With Unique Items
--
Regards,
Tom Ogilvy

"medicenpringles"
<medicenpringles.1xdw6d_1130119510.7987@excelfor um-nospam.com wrote in
message news:medicenpringles.1xdw6d_1130119510.7987@excelf orum-nospam.com...

ok, so i used the code below to fill a list box:


Code:
--------------------
Private Sub UserForm_Initialize()

Dim oIngredient As Ingredient
Dim oIngredients As New Ingredients
Dim avIngredients() As Variant
Dim i As Integer

For i = 1 To oIngredients.Count
Set oIngredient = oIngredients.Item(i)
avIngredients(i) = oIngredient.IngredientType
If oIngredient.Type = previoustype Then ' need something here
GoTo Skip
Else
Me.lstPreDefinedTypes.AddItem (CStr(oIngredient.IngredientType))
End If
Skip:
Next i

End Sub
--------------------


well, not exactly; the "oIngredient.Type = previoustype" needs to be
replaced with something that will look through the array being filled
and return true if it finds a duplicate.
is there a way to do this?

thanks ahead of time,
sven


--
medicenpringles


------------------------------------------------------------------------
medicenpringles's Profile:
http://www.excelforum.com/member.php...o&userid=16458
View this thread: http://www.excelforum.com/showthread...hreadid=478659