VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Matrix in UserForm-ListBox einlesen

Gruppe

Dialog

Bereich

ListBox

Thema

Matrix in UserForm-ListBox einlesen

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

    


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