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