Listbox & abhängige Textfelder füllen
08.08.2003 07:19:09
Peter
ich möchte bei Auswahl eines Eintrages aus einer Listbox
drei abhängige Textfelder mit Werten füllen.
Meine eigenen Versuche scheiterten jedoch kläglich.
Wer kann helfen?
P.S. Wenn möglich, sollen die Werte der Listbox bei Übernahme
aus der Tabelle sortiert sein.
Danke Peter
~begin~
Private Sub UserForm_Initialize()
'Daten des Tabellenbereiches Objekt-Variablen zuweisen
Set Name = Worksheets("Tabelle1").Cells(1, 1).CurrentRegion
Set Name = Name.Offset(1).Resize(Name.Rows.Count - 1)
ListBox1.List = Name.Columns(1)
ListBox1.ListIndex = 1
End Sub
'Abhängige Textfelder füllen
Private Sub ListBox1_Click()
TextBox1.Text = Name.Cells(ListBox1.ListIndex, 2).Value
TextBox2.Text = Name.Cells(ListBox1.ListIndex, 3).Value
TextBox3.Text = Name.Cells(ListBox1.ListIndex, 4).Value
End Sub
~end~