Duplikate weglassen

Forumthread: Duplikate weglassen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Duplikate weglassen

Duplikate weglassen

26.02.2008 18:03:45

Alexander

Hallo zusammen,
mit dem folgenden Code, fülle ich eine ComboBox mit Daten aus einer Spalte.
Wie kann ich es realisieren, das er nur Unikate nimmt, und die Duplikate rauslässt?
Alex


Private Sub CommandButton2_Click()
If Filter1.Value = "Größe" Then
Filter.ComboBox1.RowSource = _
Sheets("Tabelle1").Range("E2:E" & _
ActiveSheet.UsedRange.Rows.Count).Address
End If
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Duplikate weglassen

26.02.2008 18:18:24

ransi
AW: Duplikate weglassen

26.02.2008 20:56:53

Alexander
AW: Duplikate weglassen

26.02.2008 18:20:00

Horst

AW: Duplikate weglassen

26.02.2008 18:18:24

ransi

HAllo
Eine Möglichkeit wäre so:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
Dim L As Long
Dim MyDic
Dim Zelle As Range
Set MyDic = CreateObject("Scripting.dictionary")
L = Range("E65536").End(xlUp).Row
For Each Zelle In Range("E2:E" & L)
'MyDic(Zelle.Value) = MyDic(Zelle.Value) 'Unterschlägt Fehlerwerte
MyDic(Zelle.Text) = MyDic(Zelle.Text) 'Übernimmt den angezeigten Text, auch Fehlerwerte
Next
ComboBox1.List = MyDic.keys
End Sub

ransi

AW: Duplikate weglassen

26.02.2008 20:56:53

Alexander

Klasse, funktioniert bestens!!!
Danke!

AW: Duplikate weglassen

26.02.2008 18:20:00

Horst

Hi,
wenn du mit RowSource füllst, geht es nur, wenn du die Daten zuvor
in der Tabelle aufbereitest, z.B. Spezialfilter, ohne Duplikate.
mfg Horst