Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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
AW: Kombobox mit Werten füllen ohne Duplikate VBA
17.03.2010 11:35:37
chrissey
Funktioniert 1A
Vielen, vielen Dank Reinhard
Grüße
AW: Kombobox mit Werten füllen ohen Duplikate VBA
17.03.2010 11:28:00
robert
http://tinyurl.com/yckk2vl
Anzeige

112 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige