hatte die Frage zwar schonmal gestellt, aber vielleicht gibt es ja mittlerweile jemanden, der mir den entscheidenden Hinweis geben kann.
Ich habe zwei Comboboxen, die im Worksheet_Open gefüllt werden (sollen). Problem dabei ist, dass eine gefüllt wird und auch reagiert, bei der anderen aber gar nichts passiert.
Die Nichtfunktionierende:
Dim cobo1 As ComboBox
Set cobo1 = Worksheets("Vorlage").ComboBox1 'Entscheid
With cobo1
.Clear
.AddItem "Ausschuss"
.AddItem "Nacharbeit"
.AddItem "Rücksendung"
.AddItem "Behalten"
End With
Die funktionierende:
Dim cobo3 As ComboBox
Set tbl = funOpenSQL(sql, dbmain)
tbl.MoveFirst
Set cobo3 = Worksheets("Vorlage").ComboBox3 'Fehler
With cobo3
.Clear
While Not tbl.EOF
.AddItem Mid(tbl!such12, 6) & " - " & tbl!Name
tbl.MoveNext
Wend
End With
Die Eigenschaften sind für beide gleich. Beides sind ActiveX- Objekte.Grüße
Heiko