Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anzeige
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é
Anzeige
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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige