Ref. til tabel og fjern dubletter i ComboBox

1. "Noter" er det et navngivet område?
2. Comboboxen er det et kontrol element?
3. forventer du en VBA løsning?

Jan

@Jan:
1. Noter er kolonnenavnet i min tabel, som hedder tblDataSpec

2. Det ved jeg faktisk ikke. Jeg har indsat comboboxen i en UserForm.

3. Ja. Jeg tænkte, at koden skal køre hver gang UserFormen bliver åbnet.

1. Du mener at der står "Noter" i f.eks. cellle "B1"?

Bare så man kan lave den rette kode

Jan

Ja, i celle B1 sår der Note, som er overskriften på den tabel jeg har lavet. Tabellen vil være dynamisk, så der kan komme flere eller færre rækker til.

Kunne nedenstående være løsningen?
Der er ikke taget højde for sortering af data.
Det letteste vil nok være at sortere kolonnen (evt. via kode) før denne kode køres


Private Sub UserForm_Initialize()
' expertenATkjflDOTdk
Dim itmValue As Variant
ReDim arrValues(0) As String
Dim rngCell As Range
Dim rngCells As Range
Dim intCounter As Integer
Dim bolFound As Boolean
' itererer celler i tabellens kolonne
For Each rngCell In ActiveSheet.Range("tblDataSpec[Noter]").Cells
' checker værdien mod tidligere værdier
If intCounter > 0 Then
bolFound = False
For Each itmValue In arrValues
If CStr(rngCell.Value) = CStr(itmValue) Then
bolFound = True
Exit For
End If
Next
End If
' hvis ny værdi indsættes denne i array
If bolFound = False Then
ReDim Preserve arrValues(intCounter)
arrValues(intCounter) = rngCell.Value
intCounter = intCounter + 1
End If
Next
' array anvendes som listekilde for combobox
ComboBox.List = arrValues
End Sub

Ligner StoreStygge har løsningen Ligner det jeg ville foreslå!!