hier mal als Beispiel mit einer 2spaltigen Listbox
1 Userform mit Textbox1 und Listbox1
auf einem ausgeblendetem Tabellenblatt (heißt bei mir Hilfstabelle)
stehen in Spalte A die Abkürzungen und in Spalte B die Beschreibungen
beim Start der Userform werden die Spalten in die Listbox geschrieben
Private Sub UserForm_Initialize()
Dim lngLetzte As Long
Dim lngAnz As Long
Dim lngZeile As Long
Dim intSpalte As Integer
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;150"
With Sheets("Hilfstabelle")
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
ListBox1.Clear
For lngZeile = 1 To lngLetzte
ListBox1.AddItem .Cells(lngZeile, 1).Value
lngAnz = ListBox1.ListCount
For intSpalte = 1 To 2
ListBox1.List(lngAnz - 1, intSpalte) = .Cells(lngZeile, intSpalte + 1).Value
Next
Next
End With
End Sub
beim Click auf einen Eintrag in der Listbox erscheint mit diesem Code dein gewünschtes Ergebnis in der Textbox1
Private Sub ListBox1_Click()
With ListBox1
TextBox1 = .List(.ListIndex, 0) & ": " & .List(.ListIndex, 1)
End With
End Sub
|