Gruppe
Dialog
Problem
Spalte A soll in eine UserForm-ListBox eingelesen werden. Die in der ListBox angeklickten Werte sind in Spalte C zu übernehmen.
ClassModule: frmValues
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub lstValues_Click()
Dim iRow As Integer
iRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(iRow, 3).Value = lstValues.Text
End Sub
Private Sub UserForm_Initialize()
lstValues.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1
Sub CallForm()
frmValues.Show
End Sub