Anfänger: Rnd() läuft nicht in For-Schleife
10.03.2015 13:12:30
gutschy
heute poste ich mal quer, leider komme ich mit dem Forum eurer Kollegen gar nicht klar(VBA Forum).
Es geht darum 10 Zufallszahlen zwischen 30 und 35 in ein Array zu schreiben. Ich habe meinen Versuch des Makros aus diesem Beispiel von abgeleitet.
Sub DatenfeldEindimensional()
Dim T(1 To 7) As Integer
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
Randomize
For i = 1 To 7
T(i) = Rnd() * 10 + 20
Cells(i, 1).Value = T(i)
Next i
End Sub
Daraus habe ich dann dieses gebastelt.
Sub Uebung_5_A()
Dim T(1 To 10) As Integer
Dim i As Integer
Dim x As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
Randomize
For x = 1 To 10
T(i) = Int((35 - 30 + 1) * Rnd + 30)
Cells(x, 1).Value = T(i)
Next x
End Sub
Es hängt in der Rnd() Zeile.
Ich habe für die Rnd() schon verschiedene Schreibweisen probiert und da ich Schleifen auch aus Python kenne, dachte ich: So könnte es laufen.
Na ja.
Gruss,
Gutschy