Ich habe es zuerst so probiert (siehe die ersten beiden Zeilen):
Sub Zufall()
Dim anz As Integer
anz = InputBox("Geben Wie die Anzahl ein: ")
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
End Sub
Das hat mir die bereits genannte Fehlermeldung ausgegeben: "Fehler beim Kompilieren - Konstanter Ausdruck erforderlich."
Als nächstes wollte ich varAnz mit der Inputbox einlesen und dann in eine Konstante umwandeln bzw. in einer Konstante abspeichern:
Dim varAnz as Integer
varAnz = InputBox("Geben Sie die Anzahl ein: ")
Const anz As Integer = varAnz
' oder: Const anz = varAnz
Was aber auch nicht funktioniert hat. Gibt es keinen Befehl, mit dem ich eine Variable in eine Konstante überführen kann wie bei der Umwandlung von Variablentypen, z.B. CStr(), CInt(), oder mit dem ich eine neue Konstante mit dem Wert einer Variable erstellen kann?
Ich komme leider nach wie vor nicht zum gewünschten Ergebnis.
|