|
Hallo liebe Mitglieder des VBA-Forums,
ich habe ein Problem mit einem Excel-VBA Code-Teil, den ich vor einiger Zeit im Internet gefunden habe (ich weiß leider nicht mehr von wem der Code stammt):
Const anz As Integer = 20
Dim i As Integer, fFeld(anz) As Integer, iTemp As Integer, iZ As Integer
For i = 1 To anz
fFeld(i) = i
Next i
For i = anz To 1 Step -1
Randomize Timer
iZ = Int((i * Rnd) + 1)
iTemp = fFeld(iZ)
fFeld(iZ) = fFeld(i)
fFeld(i) = iTemp
Next i
For i = 1 To anz
Cells(i, 1) = fFeld(i)
Next i
Im Code wird zuerst eine Konstante definiert (Integer, im Beispiel 20), und dann werden die Zahlen von eins bis zu dieser Zahl in zufälliger Reihenfolge angeordnet und in Spalte A des Tabellenblatts ausgegeben.
Ich brauche ebendiese zufällige Reihenfolge, allerdings möchte ich die Konstante nicht vorgeben, sondern die maximale Zahl über eine Inputbox einlesen. Wenn ich statt der Konstante eine Variable verwende, funktioniert aber der Code nicht. Gibt es eine Möglichkeit, im Verlauf des Scripts einer neuen Konstante den momentanen Wert einer Variablen zuzuweisen, oder hat vielleicht jemand eine andere/bessere Lösung?
mit freundlichen Grüßen
Günter
|