Combobox vullen, dubbele items uitfilteren

[chrlss]

Hallo,

Ik ben bezig met een excel rekenmodel, met materialen database.

Wat ik wil bereiken is als volgt:

met combobox materiaal selecteren-->
Enkele materiaalwaarden plaatsen in bepaalde cel -->

Database staat gewoon op een tabblad in excel, bijv: a1: naam, b1 waarde2, c1:waarde 3

Momenteel heb ik het volgende stukje code verkregen dat werkt:

Private Sub cbomat_click()

Dim oC As Range, EndRow As Long, r As Long
EndRow = ThisWorkbook.Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row
Set oC = ThisWorkbook.Sheets(3).Cells
For r = 1 To EndRow


If oC(r, 1).Value <> "" Then
cboMat.AddItem oC(r, 1).Value
End If

Next


End Sub


Private Sub cbomat_change()

Dim i As Integer
Dim l As Long


Dim oRng As Range
Set oRng = ThisWorkbook.Sheets(3).Cells.Find(what:=cboMat.Value, lookat:=xlWhole)

Sheet3.Range("a14").Value = oRng.Offset(0, 1).Value


End Sub

Echter wanneer ik nu weer op de combobox klik komen de namen er dubbel in te staan, dit wil ik voorkomen.
Iemand tips?

Mvg,
Chris

 

[snb]

Vul de combobox bij het openen van het bestand en niet als erop geklikt wordt:
En gebruik zeker niet de trage methode additem.

Private Sub Workbook_Open()
   cboMat.list=sheets(3).cels(1,1).currentregion.value
End Sub

of stel de eigenschap listfillrange in met bijv A1:A32