Gruppe
Dialog
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.
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