Daten in UserForm anzeigen abhängig von Combobox
12.02.2005 03:06:22
Combobox
ich habe eine UserForm.
In dieser habe ich Multiseiten eingefügt (3 Pages).
Nun möchte ich auf jeder der 3 Pages Daten einlesen.
Page1 aus Tabelle Komplett.
Page2 aus Tabelle Resliste.
Page3 aus Tabelle Komplett (aber andere Spalte).
Das realisiere ich über den folgenden Code:
Private Sub UserForm_Initialize()
Dim lr%
lr = Worksheets("Komplett").Cells(Rows.Count, 1).End(xlUp).Row
Me.ComboBox1.RowSource = "Komplett!b4:b" & lr
Me.ComboBox1.ListIndex = 0
lr = Worksheets("Bestellliste").Cells(Rows.Count, 1).End(xlUp).Row
Me.ComboBox2.RowSource = "Bestellliste!b3:b" & lr
Me.ComboBox2.ListIndex = 0
lr = Worksheets("Komplett").Cells(Rows.Count, 1).End(xlUp).Row
Me.ComboBox3.RowSource = "Komplett!d4:d" & lr
ME.ComboBox3.ListIndex = 0
End Sub
Das funzt auch soweit.
Was ich noch brauche aber einfach nicht hinbekomme:
Ich hab in der Userform in jeder Multipage noch einige Textboxen.
Wenn ich nun in einer Combobox einen der eingelesenen Werte anklicke soll in den Textboxen (sind unterschiedlich viel, je nach Multipage aber die Anzeige soll immer nur innerhalb einer Multipage sein) die zugehörigen Werte aus der Tabelle, in der gleichen Zeile, eingelesen werden aus der auch der "Suchbegriff" in der Combobox stammt. Also ähnlich SVerweis.
Vielen Dank im Voraus.
Gruß
Heinz
Anzeige