Gruppe
Allgemein
Problem
Wie kann ich in einem Tabellenblattbereich Zufallszahlen so generieren, dass maximal der vierfache Wert der jeweiligen Zelle erreicht werden kann?
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