Office: mehrspaltige ComboBox füllen

Hallo zusammen,

ich habe eine Exceltabelle mit 2 Spalten und die will ich per VBA Makro in eine 2 spaltige Combobox einlesen und dann weiterverarbeiten. Ich weiß nur nicht, wie ich um Himmelswillen die ComboBox befüllen soll!!
Eine 1-dim. ComboBox mit Additem ist kein Problem, aber wie befüll ich eine Mehrspaltige. Mit list und Column hab ich es nicht richtig hinbekommen.

Aber vielleicht habt ihr mir eine gute Idee..

Mein Codeausschnitt:
Public Sub UserForm_Activate()
Dim objExcel As Object
Dim objRegion As Object
Dim n As Integer


Set objExcel = GetObject("C:\Dokumente und Einstellungen\*\Desktop\Medikamente.xls")

With objExcel
Set objRegion = .Worksheets("Tabelle1").[A1].CurrentRegion
ComboBox1.Text = "Bitte wählen Sie ihr Medikament aus"
ComboBox2.Text = "Bitte wählen Sie ihr Medikament aus"
ComboBox3.Text = "Bitte wählen Sie ihr Medikament aus"
ComboBox4.Text = "Bitte wählen Sie ihr Medikament aus"
ComboBox5.Text = "Bitte wählen Sie ihr Medikament aus"


For n = 1 To 100
'ComboBox1.AddItem (.Worksheets("Tabelle1").Cells(n, 1))
'ComboBox2.AddItem (.Worksheets("Tabelle1").Cells(n, 1))
'ComboBox3.AddItem (.Worksheets("Tabelle1").Cells(n, 1))
'ComboBox4.AddItem (.Worksheets("Tabelle1").Cells(n, 1))
'ComboBox5.AddItem (.Worksheets("Tabelle1").Cells(n, 1))
ComboBox1.List(1, 0) = (.Worksheets("Tabelle1").Cells(n, 1))
Next
End With
Set objRegion = Nothing
Set objExcel = Nothing
End Sub

Oder vielleicht habt ihr noch eine Idee, wie ich die Exceltabelle in ein 2-dim Array einlesen kann. Wie gesagt die Daten sollen weiterverarbeitet werden und um die Performance hochzuhalten wäre es mit einem Array deutlich angenehmer!!

Viele Grüße und DANKE für ihre HILFE im Voraus!!!
Bertram

:)

 

Hi,

auf die Schnelle:
Mehrspaltige Listen füllt man so

Code:

HTH
PS

 

Danke!!!

Hat einwandfrei funktioniert!! Ich habe es immer probiert ComboBox.List oder ComboBox.Additem.list aber das war nicht so erfolgreich!!!

Würde es auch gehen die Tabellen in ein Array einzulesen??

Danke noch mals für deine schnelle Hilfe!!

Gruß
Bertram

 

Bevor ich mich gleich wieder rumärgern muss, frag ich lieber gleich!!

Hab jetzt die 2 spaltige Combobox und nun will ich von einem ausgewählten Element den 2. Wert in ein Textfeld übergeben. Ich dachte ich muss mit Bound die Spalte angeben die ich ausgeben will und dann mit Value den Inhalt, aber irgendwie funktioniert das nicht so 100%ig!!

Habt ihr eine Idee??

Gruß
Bertram

 

Hi,

bitte was heisst: "Irgendwie funktioniert das nicht so 100%ig"???
Schau doch einfach mal in die Hilfe zu .List *wink.gif*

Code:

PS

 

Hoi,

ja wenn man weiß, dass man mit List darauf zugreifen kann, kann man sich die Funktion anschauen, aber wenn man nicht weiß, nach was man suchen soll wird es schwer ;-)!!

Trotzdem danke für deine Hilfe!!!

Habt ihr mir vielleicht noch einen Tipp wie man das ganze beschleunigen könnte, weil jedes Mal das Excel Objekt öffnen ist nicht die schnellste Methode!! In der Tabelle hat es mehr als 200 Einträge.

Danke!!

Gruß
Bertram

 

Hi,

wenn die Daten in einem 2-dim-Array enthalten sind, sollte ein

Me.ComboBox1.List()=MyArray()

reichen
Beispiel:
Code:

PS