Datenfeld mit nacheinder aufrückenden Feldwerten nach oben

[Büroklammer]

Datenfeld mit nacheinder aufrückenden Feldwerten nach oben

Hallo,

Ausgangspunkt meines Problems ist ein mit Zufallswerten befülltes Datenfeld.

Dim i%, f
For i = 1 To 50:: f(i) = Chr(WorksheetFunction.RandBetween(65, 90)):: Next

Jetzt möchte ich das die Werte im Feld nach einem Muster neu geordnet werden.
Der letzte Datenwert des Feldes f soll nach vorne auf den ersten Platz wandern.

f(1)Neu = f(50) alt    - Feldwert

alle anderen Werte meines Datenfeldes f sollen im Index um einen Platz
nach oben rücken. Wie mache ich das? Vielen Dank für eure Hilfe.

[Kuwer]

hallo,

Sub abc()

Dim i As Long

Dim f(1 To 50) As Variant

Dim vTemp As Variant

For i = 1 To 50

 f(i) = Chr(Application.WorksheetFunction.RandBetween(65, 90))

Next

vTemp = f(50)

For i = 50 To 2 Step -1

  f(i) = f(i - 1)

Next i

f(1) = vTemp

End Sub

Gruß Uwe