Nichtdiskrete Zunahme einer Variablen

[snb]

oder ?

Code:

Sub M_snb()
  sn = Array(10, 12, 15, 19, 2000, 0)
  y = 12

  For j = 1 To 10
    y = sn(Application.Match(y, sn, 0) Mod UBound(sn))
    Debug.Print y
  Next
End Sub

[Quantum]

@SNB Super! Muss man erst mal drauf kommen!

[snb]

oder:

Code:

Sub M_snb()
  sn = Array(10, 12, 15, 19, 2000)
  y = 12
  t = Application.Match(y, sn) - 1

  For j = 0 To 9
     Debug.Print sn((t + j) Mod (UBound(sn) + 1))
  Next
End Sub