Thema: Array einlesen

Home

Ein Array wird in die mehrspaltige ListBox eingelesen.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Array einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über Spalten bilden
- Schleife über Zeilen bilden
- 10er Schleife starten
- Text in Datenfeld einlesen
- Der ListBox das Array zuweisen

Code:


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