Combobox reagiert nicht
Heiko
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
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
Grüße
Heiko
Anzeige