Gruppe
Dialog
Problem
Ausgewählte Einträge aus einer mehrspaltigen UserForm-ListBox sollen in Tabelle2 übernommen werden.
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