Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Matrix in UserForm-ListBox einlesen

Gruppe

ListBox

Problem

Wie kann ich eine Matrix in eine mehrspaltige UserForm-ListBox einlesen?

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

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