Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

combobox spalten befuellen

combobox spalten befuellen
24.01.2004 17:40:01
Gorginio
Hi,
Ich moechte eine Combobox mit 3 Spalten fuellen.
Normalerweise wuerde ich es folgenderweise machen:
With ListBox1
.ColumnHeads = True
.ColumnCount = 3
.RowSource = "a2:c99"
End With
Jedoch ist meine Source kein Tabellenblatt sondern kommt aus einer DB, die ich mit recordset abrufe (ADO).
also habe ich
.additem tabelle.nnachname,vorname,ID FROM tabelle ORDER BY nnachname
Wie schaffe ich es nun die combobox zu befuellen.
Danke fuer eure Hilfe....
Gorginio

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: combobox spalten befuellen
24.01.2004 18:48:12
Dieter Klemke
Hallo Gorginio,
du kannst das z.B. so machen:
If Not (rs.BOF And rs.EOF) Then
' Recordset ist nicht leer
rs.MoveFirst
Do Until rs.EOF
cboBeispiel.AddItem rs(0)
li = cboBeispiel.ListCount - 1
cboBeispiel.List(li, 1) = rs(1)
cboBeispiel.List(li, 2) = rs(2)
rs.MoveNext
Loop
End If
MfG
Dieter
AW: combobox spalten befuellen
24.01.2004 19:13:08
Gorginio
Hallo,
nein so geht kriege ich es nicht hin:
Ich habe hier meinen recordset, der mittels ado aufgerufen wird und anschliessend alles in die Combobox schreibt.
Do While Not rstActivity.EOF
With cboEdit
.ColumnCount = 3
.BoundColumn = 1
.AddItem rstActivity.Fields("Nachname")
.AddItem rstActivity.Fields("Vorname")
.AddItem rstActivity.Fields("ID")
End With

rstDActivity.MoveNext
Loop
Nach meiner Methode bekomme ich aber alles in 1 Spalte, ich will aber drei. (brauche ja die ID aus der DB um weiterarbeiten zu koennen. Das ListIndex hilft mir gar nichts, da ich ja den Datensatz editieren will und anschliessend mit UPDATE ... Set ...Where ID= & combospalte3ID ist.
Wie bekomme ich nun am Besten die Datensaetze in 3 Spalten in der Combobox?
lg
Gorginio
Anzeige
AW: combobox spalten befuellen
24.01.2004 19:54:06
K.Rola
Hallo,
lies die daten in ein Array ein und weiss dies der Combobox zu:
Combobox1.List = deinArray
Gruß K.Rola
AW: combobox spalten befuellen
24.01.2004 21:02:58
Dieter Klemke
Hallo Gorginio,
was meinst du damit, dass der ListIndex dir nicht hilft? Die Eigenschaft ListIndex kommt in meinem Vorschlag nicht vor.
Du kannst mit dem Vorschlag auf jeden Fall die ComboBox mehrspaltig füllen. Ob dein Recordset über ADO oder DAO erzeugt wurde, ist an dieser Stelle egal.
Wenn du es besser in deiner Terminologie verstehst, dann sieht mein Vorschlag so aus:
Do While Not rstActivity.EOF
With cboEdit
.AddItem rstActivity.Fields("Nachname")
li = cboBeispiel.ListCount - 1
.List(li, 1) = rstActivity.Fields("Vorname")
.List(li, 2) = rstActivity.Fields("ID")
End With
rstDActivity.MoveNext
Loop
Übrigens konntest du mit meiner Antwort auf deine Frage vom 22.01.2004 10:48 etwas anfangen?
MfG
Dieter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige