autocomplete textbox / Bezug Quelle

[Steffl]

Hallo,

.List = Sheets(Tabelle8).Range("B1:B25").Value
13: Typen unverträglich?

doch nichts verstanden....

stimmt  :17:

Code:

.List = Tabelle8.Range("B1:B25").Value

im ersten Fall (Sheets("Tabelle8")) spricht Du es mit mit dem Tabellennamen an und wenn es in der Excelumgebung nicht eine Tabelle8 gibt, läuft es in einen Fehler. Im zweiten Fall brauchst Du einen Index (siehe dein Beispiel mit Sheets(13)) oder einen String (Sheets(Tabelle8.Name) oder sprich es mit dem Codenamen an (siehe oben).

[soldblub]

Hallo Stefan,
vielen Dank. Ich näher mich dem Ziel.

ComboBox2.List = Tabelle8.Range("B1:B100").Value

klappt!!!


Kann ich auch die Combobox mit mehreren Tabellen füllen?

Bsp. (zur Veranschaulichung, geht so natürlich nicht)

ComboBox2.List = Tabelle8.Range("B1:B100").Value And Tabelle9.Range("B1:B100")

???

[RPP63]

Moin!
Dürfte nur mittels .AddItem-Methode funktionieren:

Dim rng As Range
For Each rng In Tabelle2.Range("A1:A5")
   ComboBox1.AddItem rng
Next
For Each rng In Tabelle3.Range("A1:A5")
   ComboBox1.AddItem rng
Next

Ist langsamer als die .List-Methode, dürfte aber bei 200 Items unkritisch sein.

Gruß Ralf