Hallo Leute,
bin gerade dabei in VBA für Excel einzusteigen. Eine Aufgabe ist 10 Zufallszahlen zwischen 30 und 35 in ein Array zu schreiben dieses auch gleich auszugeben. Ich habe schon mal ein Einsteigerbuch mit Python durch, von daher dachte ich das so eine einfache Schleife kein Problem sein sollte. Na ja.
Hier der Lehrbuch Code, von dessen Beispiel ich ausgehe.
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
Und hier mein Versuch:
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 * Rnd) + 30))
Cells(x, 1).Value = T(i)
Next x
End Sub
Es hakt in der Rnd Zeile. Ich habe auch diese Variante probiert.
T(i) = Int((35 - 30 + 1) * Rnd + 30)
Hoffe ihr könnt mir Helfen.
Gruss,
Gutschy
|