HERBERS Excel-Forum - die Beispiele

Thema: Zufallszahlen bis zum 4-fachen Wert generieren

Home

Gruppe

Allgemein

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