VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Gleiche Zufallszahlen zählen und in Diagramm anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall