Combobox aus zwei Spalten füllen

Forumthread: Combobox aus zwei Spalten füllen

01.03.2005 02:16:04

Heinz

Hi,
hab mal wieder ein kleines Problem.
ich habe eine Userform mit einer Combobox.
In diese Combobox lade ich Daten aus einer Tabelle.
Gelöst wurde das folgendermaßen:
Private Sub UserForm_Initialize()
Dim lr%
lr = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Me.ComboBox1.RowSource = "Tabelle1!d4:d" & lr
Me.ComboBox1.ListIndex = 0
Das geht auch wunderbar.
Die Daten werden anschliesend über ComboBox1_change weiter verarbeitet.
Allerdings hätte ich gerne die Werte einer weiteren Spalte gleich in der Combox mit angezeigt um die Auswahl einfacher zu gestalten.
Da ich diese Combobox in verschiedenen UserForms nutze liegt die zweite Spalte nicht immer direkt neben der bisher genutzten. Also um bei obigem Beispiel zu bleiben brauche ich mal Spalte e, mal Spalte b oder mal Spalte f.
Das bekomm ich aber nicht hin.
Wer kann mir da bitte helfen.
Gruß
Heinz

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox aus zwei Spalten füllen

01.03.2005 02:39:34

Heinz
AW: Combobox aus zwei Spalten füllen

01.03.2005 08:45:26

René
AW: Combobox aus zwei Spalten füllen

05.03.2005 03:33:27

Heinz

AW: Combobox aus zwei Spalten füllen

01.03.2005 02:39:34

Heinz

Noch eine Anmerkung.
Das Ändern des Adressbereiches "Tabelle1!d4:d" & lr in "Tabelle1!d4:e" & lr
funktioniert nicht.
Gruß
Heinz

AW: Combobox aus zwei Spalten füllen

01.03.2005 08:45:26

René

Hallo Heinz
Userform erstellen und Listenfeld einfügen
Code einfügen


Private Sub UserForm_Initialize()
Dim Listenfeld()
Dim MaxRecords As Integer
Dim intI As Integer
intI = 4
MaxRecords = 1
Do While Range("D" & intI).Value <> ""
MaxRecords = MaxRecords + 1
intI = intI + 1
Loop
MaxRecords = MaxRecords - 2
intI = 4
ReDim Listenfeld(MaxRecords, 2)
Do While Range("D" & intI).Value <> ""
Listenfeld(intI - 4, 0) = Range("D" & intI).Value
Listenfeld(intI - 4, 1) = Range("D" & intI).Offset(0, 1).Value
intI = intI + 1
Loop
Me.ListBox1.List() = Listenfeld
Me.ListBox1.ColumnCount = 2
End Sub

Gruss René

AW: Combobox aus zwei Spalten füllen

05.03.2005 03:33:27

Heinz

Hallo Rene,
Danke für die Mühe.
Ich habe das mal ausprobiert, aber irgendwie nicht hinbekommen.
Ich habe jetzt die Tabellen umgestellt und lese die Daten so ein wie vorher, allerdings mit der Column-Angabe je nach ANzahl Spalten.
Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Combobox aus zwei Spalten füllen

Forumthread: Combobox aus zwei Spalten füllen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread