Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zufallszahlen bis zum 4-fachen Wert generieren

Gruppe

Zufall

Problem

Wie kann ich in einem Tabellenblattbereich Zufallszahlen so generieren, dass maximal der vierfache Wert der jeweiligen Zelle erreicht werden kann?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: modMain

Sub Zufall()
   Dim rng As Range
   Randomize
   For Each rng In Range("A1:E5").Cells
      rng = Int(Rnd * rng.Value * 4) + 1
   Next rng
End Sub