Gruppe
Allgemein
Bereich
Zufall
Thema
Gleiche Zufallszahlen zählen und in Diagramm anzeigen
Problem
Wie kann ich in Spalte A1:A100 Zufallszahlen von 1 bis 10 eintragen und die jeweilige Anzahl in einem Diagramm ausgeben lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Zufall()
Dim intRow As Integer
Randomize
For intRow = 1 To 100
Cells(intRow, 1) = Int((10 * Rnd) + 1)
Next intRow
End Sub