Thema: Nur sichtabe Zellen einlesen

Home

Nur die sichtbaren Zellen sollen in die ListBox eingelesen werden.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nur sichtabe Zellen einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Index der letzten Zelle mit Inhalt in Spalte A an eine Integer-Variable übergeben
- Schleife von der zweiten bis zur letzten Zelle mit Inhalt bilden
- Wenn die aktuelle Zeile nicht ausgeblendet ist...
- Zellinhalt aus Spalte A der aktuellen Zeile der ListBox hinzufügen

Code:


Private Sub UserForm_Initialize()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 2 To iRowL
      If Rows(iRow).Hidden = False Then
         lstVisibleCells.AddItem Cells(iRow, 1).Value
      End If
   Next iRow
End Sub