Gruppe
Allgemein
Bereich
Zufall
Thema
Zufallszahlen bis zum 4-fachen Wert generieren
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