ComboBox

Forumthread: ComboBox
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: ComboBox

ComboBox

10.07.2002 12:24:58

Rainer

Hi,

mal wieder ne Frage. Ich möchte in einer ComboBox Werte aus eine Tabelle einlesen (A1:A20), damit ich daraus dann einen bestimmten Wert auswählen kann, der dann in Zelle B1 übergeben wird.

Vielen Dank

Rainer

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: ComboBox

10.07.2002 12:38:05

Helmuth

Re: ComboBox

10.07.2002 12:38:05

Helmuth

//hier wird zuerst überprüft bis wohin die Datensätze gehen
(d.h. er hört auf die Datensätze zu zählen, bis einen leere Zeile folgt)
zz = 1
zelle = Sheets(6).Range("b2")
While zelle <> ""
zz = zz + 1
zelle = Sheets(6).Range("b" & zz)
Wend

//und hier werden die Werte nacheinander an die ComboBox übergeben; wenn die Anzahl der Datensätze immer fest bleibt kannst du natürlich zz gleich durch dise Anzahl ersetzen

For i = 2 To zz - 1
ComboBox.AddItem Sheets(6).Range("a" & i)
Next i