Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen

Gruppe

ListBox

Problem

Wie kann ich mich ohne eigenes Zutun im Zeitabstand von 2 Sekunden zum nächsten UserForm-ListBox-Eintrag scrollen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

StandardModule: basMain

Sub CallForm()
   frmZeitgesteuert.Show
End Sub

ClassModule: frmZeitgesteuert

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
      Application.Wait Now + TimeSerial(0, 0, 2)
   Next iRow
   Unload Me
End Sub