Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen

Gruppe

ListBox

Problem

Wie kann ich eine Tabelle in eine mehrspaltige UserForm-ListBox einlesen? Nach Auswahl eines Datensatzes in der ListBox soll der aktuelle Wert aus Spalte 1 in eine Tabellenblattzelle eingelesen werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

StandardModule: basMain

Sub CallForm()
   frmListe.Show
End Sub

ClassModule: frmListe

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub lstMulti_Click()
   Range("D1") = lstMulti.Value
End Sub

Private Sub UserForm_Initialize()
   Dim iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   lstMulti.List = Range( _
      Cells(2, 1), Cells(iRowL, 3)).Value
End Sub