VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ausgewählte Einträge einer mehrspaltigen ListBox in Tabellenblatt

Gruppe

Dialog

Bereich

ListBox

Thema

Ausgewählte Einträge einer mehrspaltigen ListBox in Tabellenblatt

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

    


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