Microsoft Excel

Herbers Excel/VBA-Archiv

Auslesen von Excelsheet zum befüllen einer Combobx

Betrifft: Auslesen von Excelsheet zum befüllen einer Combobx von: Bernhard
Geschrieben am: 20.09.2004 13:36:52

Vielleichzt hat da ja von euch jemand schon eine Lösung.

Möchte Excel als Konfigurationsdatei für eine VB.Net Applikation
benutzen.

Es sollen mit den Inhalten mehrere Tabellen unterschiedliche Comboboxen befüllt werden.

Würde mir sehr helfen wenn jemand so was schon mal gemacht hätte.
Mir läuft nähmlich gerade die Zeit davon.

Danke

Bernhard

  


Betrifft: AW: Auslesen von Excelsheet zum befüllen einer Combobx von: Willie
Geschrieben am: 22.09.2004 06:17:25

Hallo Bernhard es gibt viele Möglichkeiten

Sub füllen ()
for i  = 1 to 500 
comobox1.addtiem sheets(1).cells(i,1).value 'Aus Tabellenblatt 1 Spalte A 500 Werte
comobox2.addtiem sheets(3).cells(i,3).value 'Aus Tabellenblatt 3 Spalte C 500 Werte
next
End Sub

Das kannst du beliebig erweiten oder für jede Combobox eine eigene Schleife bauen ...
Denn es kommen ja nich immer gleich viele Werte in die Combobox ... sonst einfach
nochmal melden
Denn man kann es auch noch eleganter lösen, da nur die Werte in der Box stehen, die
Wirklich in der Spalte sind ... der Vorteil man kann beliebig erweitern, ohne am Code
etwas zu ändern

Gruß

Willie


  


Betrifft: AW: Auslesen von Excelsheet zum befüllen einer Combobx von: Willie
Geschrieben am: 22.09.2004 06:17:57

Hallo Bernhard es gibt viele Möglichkeiten

Sub füllen ()
for i  = 1 to 500 
comobox1.additem sheets(1).cells(i,1).value 'Aus Tabellenblatt 1 Spalte A 500 Werte
comobox2.additem sheets(3).cells(i,3).value 'Aus Tabellenblatt 3 Spalte C 500 Werte
next
End Sub

Das kannst du beliebig erweiten oder für jede Combobox eine eigene Schleife bauen ...
Denn es kommen ja nich immer gleich viele Werte in die Combobox ... sonst einfach
nochmal melden
Denn man kann es auch noch eleganter lösen, da nur die Werte in der Box stehen, die
Wirklich in der Spalte sind ... der Vorteil man kann beliebig erweitern, ohne am Code
etwas zu ändern

Gruß

Willie


 

Beiträge aus den Excel-Beispielen zum Thema "Auslesen von Excelsheet zum befüllen einer Combobx"