Thema: Lückenlos einlesen

Home

Die Werte aus den Spalten A:C werden lückenlos in eine mehrspaltige UserForm-ListBox eingelesen.

Prozedur: cmdInsert_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Lückenlos einlesen
Ablaufbeschreibung:
- Variablendeklaration
- ListBox zurücksetzen
- Index der letzten Zelle mit Inhalt an Integer-Variable übergeben
- Schleife über alle Zeilen bis zur letzten Zelle mit Inhalt bilden
- Wenn die aktuelle Zelle nicht leer ist...
- Array neu dimensionieren
- Zellwerte aus 3 Spalten einlesen
- Array-Zeilenzähler um eins hochsetzen
- Array an ListBox übergeben

Code:


Private Sub cmdInsert_Click()
   Dim arr() As Variant
   Dim iRowL As Integer, iRow As Integer, iCol As Integer, iRowU As Integer
   lstMultiCol.Clear
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Not IsEmpty(Cells(iRow, 1)) Then
         ReDim Preserve arr(0 To 2, 0 To iRowU)
         arr(0, iRowU) = Cells(iRow, 1)
         arr(1, iRowU) = Cells(iRow, 2)
         arr(2, iRowU) = Cells(iRow, 3)
         iRowU = iRowU + 1
      End If
   Next iRow
   lstMultiCol.Column = arr
End Sub