Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

ListBox

Problem

Neben den in einer UserForm-ListBox ausgewählten Einträgen aus Spalte A sollen TextBox-Werte eingetragen werden.

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

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