Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ausgewählte Einträge einer mehrspaltigen ListBox in Tabellenblatt

Gruppe

ListBox

Problem

Ausgewählte Einträge aus einer mehrspaltigen UserForm-ListBox sollen in Tabelle2 übernommen werden.

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

ClassModule: frmWrite

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdWrite_Click()
   Dim iRow As Integer, iCol As Integer, iCounter As Integer
   For iRow = 0 To lstValues.ListCount - 1
      If lstValues.Selected(iRow) Then
         iCounter = iCounter + 1
         For iCol = 1 To 4
            Worksheets("Tabelle2").Cells(iCounter, iCol).Value = lstValues.List(iRow, iCol - 1)
         Next iCol
      End If
   Next iRow
End Sub

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

StandardModule: Modul1

Sub CallForm()
   frmWrite.Show
End Sub