Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox füllen ohne Duplikate via VBA

ComboBox füllen ohne Duplikate via VBA
chrissey
Guten Morgen,
hätte eine Frage bezüglich des Füllens einer ComboBox ohne Duplikate:
Habe eine Projektliste mit ca. 100 Projekten. In Spalte C der Liste sind
die Projektländer eingetragen. Jetz hätte ich gern ein Dropdownmenü
in dem ich ein Projektland auswählen kann. Jedoch kommen die Länder
in Spalte C öfter vor.
Meine Frage:
Wir kann ich eine ComboBox via VBA füllen ohen dass Duplikatwerte übernommen werden?
Danke euch schon mal und Grüße und einen guten Start in den Tag!!!

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

Betreff
Benutzer
Anzeige
mit Dictionary...
12.10.2009 07:34:16
Tino
Hallo,
z. Bsp. so
Private Sub UserForm_Initialize()
Dim oDic As Object, meAr
Dim A As Long

Set oDic = CreateObject("Scripting.Dictionary")
'Tabelle anpassen 
With Sheets("Tabelle2")
 'bereich anpassen, hier ohne Überschrift 
 meAr = Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
End With

For A = 1 To Ubound(meAr)
  oDic(meAr(A, 1)) = 0
Next

ComboBox1.List = oDic.keys

End Sub
Gruß Tino
Anzeige
es fehlt noch ein Punkt
12.10.2009 07:37:59
Tino
Hallo,
mach noch einen Punkt vor Range
meAr = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
Gruß Tino
AW: es fehlt noch ein Punkt
12.10.2009 16:23:15
chrissey
Danke,
hat super geklappt.
Grüße

19 Forumthreads zu ähnlichen Themen

UserForm ComboBox füllen
chrissey

Hallo Excel-Volk,
hab mal wieder ein Problemchen:
Ich habe ein UserForm mit einer ComboBox1 jetz möchte ich diese mit einem Datensatz füllen.
Den Namen des Datenbreichs habe ich bereits als DD1 definiert. Normalerweise müsste ich dies
doch unter Eigenschaften ListFillRange eintr...
18.08.2009 11:43:39
Thread-ID: 1096692
5 Beiträge
Anzeige
Doppelte wWerte in Dropdownliste ausblenden
Nils

Hallo zusammen,
kann mir bitte jemand bei folgendem Problem helfen?
Ich habe in einer Userform eine ComboBox erstellt und möchte aus einer Spalte eines Sheets eine Dropdownliste auswählen. Doppelte Werte und "0" sollen allerdings nicht angezeigt werden. Bei dem unten geschriebenen Auszu...
29.03.2012 08:37:24
Thread-ID: 1256920
5 Beiträge
Userform Combobox füllen
snore

Hallo Excelprofis,
ich hab ein "hoffentlich" keines Problem, ich benutze folgenden Code in meiner Userform um Daten in eine Combobox einzulesen.
soweit so gut, funktioniert auch sehr gut, nur ich muss das Tabellenblatt offen haben um die Daten einzulesen, ich will aber auf einen Anderen...
20.08.2012 17:28:33
Thread-ID: 1275770
3 Beiträge
Anzeige
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:18:38
Thread-ID: 1585664
4 Beiträge
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:21:43
Thread-ID: 1585666
2 Beiträge
Userform, combobox füllen in abhängigkeit von
Jörg

Hallo Forum,
in einer Tabelle (wird laufend erweitert) habe ich zeilenweise Datensätze stehen, bei denen es vorkommen kann, daß in einzelnen Zellen der Spalte J kein Wert steht.
Wie kann eine Combobox diese Zellen anzeigen mit dem Wert der in der Zeile in Spalte B steht?
Wenn der Us...
12.01.2018 16:00:57
Thread-ID: 1601921
7 Beiträge
Vba Userform: Textbox automatisch befüllen
kocius

Hallo Community,
bräuchte Eure Hilfe.
Habe ein Userform mit zwei Comboboxen und einem Textbox kreiert.
Vorgehensweise: wähle in beiden Comboboxen was aus, drücke auf die Button "anzeigen" und im Textbox erscheint ein gewisser Text.
Frage1: ist es möglich, dass nachdem in Combo...
21.01.2018 07:16:54
Thread-ID: 1603541
3 Beiträge
VBA mehrere Comboboxen mit Schleife befüllen
Student

Hallo Leute,
ich würde gerne mehrere Comboboxen einer Userform mit einer Schleife füllen. Die Comboboxen sollen alle mit unterschiedlichen Werten(jeweils 5), welche in einem Tabellenblatt untereinander stehen. Die Listen stehen untereinander beginnend bei der Zelle A4 bis A9 danach A11 bis...
30.05.2018 22:48:09
Thread-ID: 1626668
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
10
4
2
2
3
1
6
2
2
2
1
12
1
10
2
7
17
18