Comboboxen befüllen

Guten Tag!
Ich bin gerade an einer Aufgabe in der aus einer Excel Datei Spalten in eine Combobox befüllt werden sollen, das hat soweit geklappt! Jetzt bin ich gerade dabei dafür zu sorgen das keine Werte doppelt in der Combobox auftauchen. Seitdem zeigt er mir an der Stelle


sn = Columns(9).SpecialCells(2)

den Fehler 1004 keine zellen gefunden an.
Hier mal der ganze Code am Stück.


Private Sub UserForm_Initialize()
frm_GELOESCHT.Caption = "GELOESCHT - " & _
Format(Now, "dddd, d. mmm yyyy")
Dim cb As Control, z As Long, s As Long
sn = Columns(9).SpecialCells(2)
For Each cb In Me.Controls
If TypeName(cb) = "ComboBox" Then
z = 1
s = 1
While Worksheets("Tabelle1").Cells(z, s)  "" And _
cb.Tag  Worksheets("Tabelle1").Cells(z, s)
s = s + 1
Wend
z = 2
While Worksheets("Tabelle1").Cells(z, s)  ""
cb.AddItem Worksheets("Tabelle1").Cells(z, s)
z = z + 1
Wend
End If
Next
With CreateObject("scripting.dictionary")
For j = 2 To UBound(sn)
x0 = .Item(sn(j, 1))
Next
cb.List = .keys
End With
cb.List = 0
End Sub

Danke schonmal für eure Hilfe!
Gruß Sk1988

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim avntValues As Variant, vntItem As Variant Dim lngIndex As Long Dim objDictionary As Object Set objDictionary = CreateObject(Class:="Scripting.Dictionary") For lngIndex = 1 To 4 avntValues = Range(Cells(2, lngIndex), Cells(Rows.Count, lngIndex).End(xlUp)).Value For Each vntItem In avntValues objDictionary.Item(vntItem) = vbNullString Next Controls("ComboBox" & CStr(lngIndex)).List = objDictionary.keys Call objDictionary.RemoveAll Next Set objDictionary = Nothing End Sub

Private Sub UserForm_Initialize() Dim avntValues As Variant, vntItem As Variant Dim avntCombobox As Variant, avntColumn As Variant Dim ialngIndex As Long Dim objDictionary As Object avntCombobox = Array("cmb_Kontinent", "cmb_Jahr", "cmb_Kategorie") avntColumn = Array(1, 3, 4) Set objDictionary = CreateObject(Class:="Scripting.Dictionary") For ialngIndex = LBound(avntCombobox) To UBound(avntCombobox) avntValues = Range(Cells(2, avntColumn(ialngIndex)), Cells(Rows.Count, avntColumn(ialngIndex)).End(xlUp)).Value For Each vntItem In avntValues objDictionary.Item(vntItem) = vbNullString Next Controls(avntCombobox(ialngIndex)).List = objDictionary.keys Call objDictionary.RemoveAll Next Set objDictionary = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Comboboxen befüllen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread