ich habe auf einem Tabellenblatt Comboboxen erstellt, die mittels .AddItem gefüllt werden. Theoretisch. Praktisch wird die Combobox, die aus einem Recordset gefüllt werden soll, auch tatsächlich gefüllt, und sie reagiert auch. Andere Comboboxen, die mit .AddItem "xxx" gefüllt werden, reagieren nicht.
Ich habe sie schonmal neu erstellt, dann ging's, nach dem nächsten Öffnen der Datei ging's nicht mehr.
Die Eigenschaften sind bei allen gleich (Kein Lock, ListFillRange, o.ä.).
Die Combobox die funktioniert, wird wie folgt gefüllt:
sql = "SELECT such12,name FROM eks_firma_kurztext WHERE such12 LIKE 'QSFE.%' ORDER BY num12"
If fun_Init_Database("nk") = False Then
MsgBox "Keine Verbindung zum Beethoven"
Exit Sub
End If
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 Comboboxen die nicht funktionieren:
Set cobo2 = Worksheets("Vorlage").ComboBox2 'Art
With cobo2
.Clear
.AddItem "F"
.AddItem "L"
.AddItem "K"
.AddItem "V"
End With
Variablendeklaration:
Dim sql As String
Dim tbl As Recordset
Dim cobo2 As MSForms.ComboBox
Dim cobo3 As MSForms.ComboBox
Die ganze Prozedur steht im Workbook_Open().Jemand eine Idee?
Heiko