Code Snippet "VBA Excel"

Alle Zellen im markierten Bereich mit Zufallszahlen zwischen 0 und 1000 füllen

Sub procRandomNumbers()
  Const INT_MAX_ZAHL = 1000

  Randomize 'Zufallsgenerator initialisieren
  
  For Each objCell In Selection
    'Rnd erzeugt Zufallszahl >= 0 und < 1
    objCell.Value = Int((INT_MAX_ZAHL * Rnd))
  Next
End Sub