Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kombobox mit Werten füllen ohen Duplikate VBA

Kombobox mit Werten füllen ohen Duplikate VBA
chrissey
Hallo Leut,
hab im Tabellenblatt "Daten" in Spalte K verschieden Referenznummern, die aber
öffter vorkommen können.
Nun würde ich gerne in einem anderen Tabellenblatt eine Kombobox mit diesen
Nummern aus Spalte K füllen, aber jeder Wert darf nur einmal in der Auswahl
vorkommen.
Das ganze via VBA
Danke Euch schon mal und liebe Grüße
Chrissey
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kombobox mit Werten füllen ohne Duplikate VBA
17.03.2010 11:25:26
Reinhard
Hallo Chrissey,
Sub Fuellen()
Dim colC As New Collection, Zei As Long
With Worksheets("Tabelle1")
On Error Resume Next
For Zei = 1 To .Cells(Rows.Count, 11).End(xlUp).Row
If CStr(.Cells(Zei, 11).Value)  "" Then
colC.Add Item:=CStr(.Cells(Zei, 11).Value), key:=CStr(.Cells(Zei, 11).Value)
End If
Next Zei
On Error GoTo 0
End With
Worksheets("Tabelle2").ComboBox1.Clear
For Zei = 1 To colC.Count
Worksheets("Tabelle2").ComboBox1.AddItem colC(Zei)
Next Zei
End Sub

Gruß
Reinhard
Anzeige
AW: Kombobox mit Werten füllen ohne Duplikate VBA
17.03.2010 11:35:37
chrissey
Funktioniert 1A
Vielen, vielen Dank Reinhard
Grüße

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige