Thema: Zeitgesteuert durch Liste scrollen

Home

Die Listbox sollt sich im Zeitabstand von 2 Sekunden durch die Liste in Spalte A.

Prozedur: UserForm_Activate
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zeitgesteuert durch Liste scrollen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über 100 Zeilen in Zehnerschritten bilden
- Tabellenblattbereich an eine Objekt-Variable übergeben
- Labelaufschrift festlegen
- Werte des an die Obejkt-Variable übergebenen Bereiches in die ListBox schreiben
- Zwei Sekunden warten

Code:


Private Sub UserForm_Activate()
   Dim rng As Range
   Dim iRow As Integer
   For iRow = 1 To 100 Step 10
      Set rng = Range(Cells(iRow, 1), Cells(iRow + 9, 1))
      lblBereich.Caption = "Bereich " & _
         rng.Address(False, False)
      lstWerte.List = rng.Value
      DoEvents
      Application.Wait Now + TimeSerial(0, 0, 2)
   Next iRow
   Unload Me
End Sub