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