Thema: Textbox-Werte gem. UserForm-ListBox-Auswahl in Tabelle eintragen

ClassModule: frmSetValues

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdInsert_Click()
   Dim iRow As Integer
   For iRow = 0 To lstValues.ListCount - 1
      If lstValues.Selected(iRow) Then
         Cells(iRow + 1, 2).Value = txtValue.Text
      End If
   Next iRow
End Sub

Private Sub UserForm_Initialize()
   lstValues.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1

Sub InsertValues()
   frmSetValues.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox