ComboBox und 2. Spalte füllen aus Nebentabelle
20.09.2004 12:14:18
Stefan
Ich habe heute eine erneute eine Frage zu einer ComboBox. Ich habe in einem Haupt-Tabellenblatt ("Sum") eine ComboBox eingefügt, die Namen von Neben-Tabellen listet.
Die Namen dieser Nebentabellen stehen bereits in der Tabelle "BlattNamen" in den Zelle A1 bis A5. Läuft mit folg. Code:
Sub WP01_Box()
Dim i%
Dim x As Variant
With Workbooks("WP00.xls").Sheets("Sum").ComboBox1
.Clear
Workbooks("WP00.xls").Sheets("BlattNamen").Activate
x = 1
While Sheets("BlattNamen").Cells(x, 1).Value <> ""
Workbooks("WP00.xls").Sheets("Sum").ComboBox1.AddItem Sheets("BlattNamen").Cells(x, 1).Value
x = x + 1
Wend
End With
End Sub
Jetzt möchte ich eine zweite Spalte in der ComboBox erstellen (ColumnCount = 2 in den Eigenschaften), um dort noch ein Datum anzuzeigen. Diese Datumseinträge stehen auch in der Tabelle mit den Namen ("BlattNamen") in den Zelle B1 bis B5.
Wie kann ich die dort hineinbringen? Ich dachte vielleicht irgendwie mit "list", habe aber nicht so das wissen. Bin dankbar für Hilfe...
Mfg, S.