doppelte Einträge aus ComboBox entfernen

Forumthread: doppelte Einträge aus ComboBox entfernen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: doppelte Einträge aus ComboBox entfernen

12.07.2005 17:01:32

otto

Hallo an alle,
habe ein kleines Problem.
Ich befülle eine ComboBox mit den Werten aus den Zellen D1 bis D40.
darunter sind auch doppelte Einträge und Leerzeilen.
Wie erhalte ich nun eine bereinigt gefüllte ComboBox ohne doppelte Einträge und ohne Leereinträge.
Besten Dank im Voraus
otto

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: doppelte Einträge aus ComboBox entfernen

12.07.2005 17:40:32

Leo
AW: doppelte Einträge aus ComboBox entfernen

12.07.2005 17:47:00

u_

AW: doppelte Einträge aus ComboBox entfernen

12.07.2005 17:40:32

Leo

Hi,
behandle die Liste vor dem Einlesen mit dem Spezialfilter ohne Duplikate.
mfg Leo

AW: doppelte Einträge aus ComboBox entfernen

12.07.2005 17:47:00

Hallo,


Private Sub ComboBox1_GotFocus()
Dim r As Range
ComboBox1.Clear
For Each r In Range("D1:D40")
If WorksheetFunction.CountIf(Range(Cells(1, 4), r), r) = 1 And r <> "" Then
ComboBox1.AddItem r
End If
Next r
End Sub

Gruß
Geist ist geil!