finde ich besser
Option Explicit
Dim arr()
Dim x
Private Sub CommandButton1_Click()
On Error GoTo fail
Label1.Caption = arr(x, 1)
x = x + 1
Exit Sub
fail:
x = 1
Resume
End Sub
Private Sub UserForm_Initialize()
arr = ActiveSheet.UsedRange.Columns(1).Value
x = 1
Label1.Caption = arr(x, 1)
End Sub
|