Textbox aus Lisbox füllen
18.09.2006 13:31:08
Paul
hab mal wieder ein kleines Problem und baue auf eure Hilfe. Es geht um folgendes. Ich fülle eine Listbox (besteht aus 2 Spalten) über einen Definierten Bereich der ebenfalls aus 2 Spalten besteht. Jetzt möchte ich die Auswahl der Listbox in einer separaten Textbox anzeigen lassen. Das funktioniert bis jetzt nur insoweit, dass der erste Wert (d.h. die Werte der ersten Spalte) der Listbox in der Textbox angezeigt wird. Hat jemand ne Idee, wie ich den zweiten Wert auch noch in die Textbox kriege. Danke. Würde mir wirklich weiterhelfen. Grüße Paul.
Mit dem Code les ich die Listbox aus:
Private Sub lsPDT_Change()
txPDT.Value = lsPDT.Text
End Sub
Und hier noch der Code für die Listbox:
'Initialize PDT Listbox.
With fmNomi.lsPDT
.ColumnCount = 2
.ColumnWidths = "30 pt;60 pt"
.MultiSelect = fmMultiSelectSingle
.RowSource = "Def!PDT_RANGE"
.ListIndex = 0
End With
Anzeige