Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Gleiche Zufallszahlen zählen und in Diagramm anzeigen

Gruppe

Zufall

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