Combobox füllen mit einer Tabellenspalte

27/07/2009 - 16:36 von Mike Berger | Report spam
Hallo zusammen,

ich habe noch ein kleines Problem.
Meine Combobox möchte ich gerne mit der Spalte B füllen, dies ist kein
Problem, wenn ich jetzt nicht auch doppelte "Strings" enthalten wàren.

Wie kann ich diese "rauslöschen"? Wie bei 'sql Select Distinct'.

Gruss
Mike
 

Lesen sie die antworten

#1 Andreas Killer
27/07/2009 - 17:19 | Warnen spam
Mike Berger schrieb:

Meine Combobox möchte ich gerne mit der Spalte B füllen, dies ist kein
Problem, wenn ich jetzt nicht auch doppelte "Strings" enthalten wàren.

Wie kann ich diese "rauslöschen"? Wie bei 'sql Select Distinct'.


Sql keine Ahnung, aber wenn Du jeden String einzeln hinzufügst, dann
weist Du welche drin sind.

Entweder fragst Du die Liste in der Combobox einfach ab ob der String
schon drin ist oder merkst Dir jeden seperat in einem Dictionary und
löscht dieses sobald die Strings drin sind. Je nachdem wie umfangreich
Deine Liste ist.

Aber ich denke Variante 1 sollte reichen.

Andreas.

Private Sub AddToComboBox(CB As ComboBox, S As String)
Dim I As Integer, Found As Boolean
Found = False
For I = 1 To CB.ListCount
If StrComp(S, CB.List(I - 1), vbTextCompare) = 0 Then
Found = True
Exit For
End If
Next
If Not Found Then CB.AddItem S
End Sub

Private Sub UserForm_Initialize()
AddToComboBox ComboBox1, "asd"
AddToComboBox ComboBox1, "qwe"
AddToComboBox ComboBox1, "asd"
End Sub

Ähnliche fragen