Tabelle mit Zufallszahlen füllen vba
27.05.2020 13:01:55
DrEckle
ich habe versucht automatisch Zufallszahlen für eine Simulation mit vba zu erstellen. Die Idee _
war, dass insgesammt 10.000 mal untereinander jeweils 397 Werte Simuliert werden. Leider sieht _
mein Ergebnis momentan so aus, dass 6 Zeilen runter und 25 Spalten Breit Zufallszahlen _ Simuliert werden und jeweils eine Spalte bzw Zeile dazwischen frei ist. Mein Code:
Sub Simulation_2()
Dim i As Long
Dim m As Long
i = 1
m = 1
For i = 1 To 100 '10000
For m = 1 To 10 '397
Set Rng = Worksheets("Tabelle3").Cells(m, i)
Rng.Value = Int(((1227 - 1 + 1) * Rnd) + 1)
m = m + 1
Next m
i = i + 1
Next i
MsgBox "Simulation abgeschlossen"
End Sub
Ich bin nicht der erfahrenste VBA Nutzer aber eigentlich sollte die Schleife doch funktionieren? Kann mir jemand sagen wo mein Fehler liegt? Wie ich mir das Ergebnis vorstelle seht ihr im hochgeladenen Screenshot:
Gruß,
DrEckle
Anzeige