ich möchte eine Combobox mit mehereren Spalten füllen. Ich habe den ColumnCount schon auf drei gestellt, aber es kommt ein Fehler:
Eigenschaft Column konnte nicht abgerufen werden. Index des Eigenschaftsfeldes ungültig.
Folgenden Code habe ich benutzt:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Blatt = Workbooks("KoBuSys.xls").Sheets("Kalkulation")
Blatt.KalkulationsnrNeu.Clear
Blatt.KalkulationsnrAlt.Clear
Blatt.Kalkulationsnrlöschen.Clear
con.Open strcon
rs.Open "Select * from tbl_KalkulationÜbersicht", con, adOpenStatic, adLockReadOnly
With rs
Do Until .EOF
If !Kalkuliert = True Then
Blatt.KalkulationsnrAlt.Column(1).AddItem !Kalkulationsnr
Blatt.KalkulationsnrAlt.Column(2).AddItem !Stadt
Blatt.KalkulationsnrAlt.Column(3).AddItem !Objekt
End If
.MoveNext
Loop
.Close
End With
con.Close
Blatt.KalkulationsnrNeu.Value = "Kalkulationsnummer"
Blatt.KalkulationsnrAlt.Value = "Kalkulationsnummer"
Blatt.Kalkulationsnrlöschen.Value = "Kalkulationsnummer"
Wichtig ist einfach nur die Zeilen mit AddItem. Was muss ich ändern damit er die Werte in die Combobox richtig rein schreibt.
Danke im vorraus
Holger Wächter