Gruppe
Dialog
Problem
Wie kann ich eine Matrix in eine mehrspaltige UserForm-ListBox einlesen?
ClassModule: Tabelle1
Private Sub cmdDialogAufruf_Click()
frmListBox.Show
End Sub
ClassModule: frmListBox
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim arr(1 To 2, 1 To 10)
Dim iRow As Integer, iCol As Integer
For iCol = 1 To 2
For iRow = 1 To 10
arr(iCol, iRow) = _
"Zeile " & iRow & " - Spalte " & iCol
Next iRow
Next iCol
lstArray.Column = arr
End Sub
StandardModule: basMain
Sub CallForm()
frmListBox.Show
End Sub