Daten in UserForm anzeigen abhängig von Combobox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Daten in UserForm anzeigen abhängig von Combobox
von: Heinz
Geschrieben am: 12.02.2005 03:06:22
Hallo,
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
Bild

Betrifft: AW: Daten in UserForm anzeigen abhängig von Combobox
von: PeterW
Geschrieben am: 12.02.2005 09:32:59
Hallo Heinz,
du kannst jeweils das Change-Ereignis der Comboboxen verwenden, um die Daten in die Textboxen einzulesen. Über den Listindex der Combobox erhälst du mit dem passenden Offset die Zeile, die Spalte kennst du selber. Mal als Beispiel:
Textbox1 = WorkSheets("Komplett").Cells(ComboBox1.ListIndex + 4, Spalte)
Gruß
Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten in UserForm anzeigen abhängig von Combobox"