Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
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
Inhaltsverzeichnis

Combobox füllen aus Spalte B ohne Doppelte

Combobox füllen aus Spalte B ohne Doppelte
Kai
Hallo,
ich habe auf einer userform eine Combobox und möchte darin alle Daten aus der Tabelle "Kategorien" aus der Spalte A einlesen. Dies darf aber erst ab Zeile 17 losgehen und alle Doppelten Einträge sollen in der Combobox NICHT angezeigt werden.
Also von jeder Kategorie ein Eintrag.
Kann mir da jemand helfen ?
Danke
Kai

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Sorry Korrektur: Spalte A ist gemeint
21.12.2010 08:32:54
Kai
AW: Sorry Korrektur: Spalte A ist gemeint
21.12.2010 08:47:19
ransi
Hallo KAi
Immer wenn es um Doppelte oder Duplikate geht ist das Dictionary-Object erste Wahl.
Versuch es mal so:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit



Public Sub fuellen()
Dim objDic As Object
Dim Bereich As Range
Dim Zelle As Range
Set objDic = CreateObject("Scripting.Dictionary")
With Sheets("Kategorien")
    Set Bereich = .Range(.Range("A17"), .Range("A17").End(xlDown)) 'relevanten Bereich ermitteln
    MsgBox Bereich.Address
End With
For Each Zelle In Bereich
    objDic(Zelle.Value) = 0 'Nur Unikate sammeln
Next
ComboBox1.List = objDic.keys 'Unikate der ComboBox zuweisen
End Sub


ransi
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige