Gruppe
Allgemein
Problem
Wie kann ich die Werte eines ausgewählten Bereiches mit einer Zufallszahl in der Größe zwischen 1 und 2 multiplizieren?
StandardModule: basMain
Sub ZufallMulti()
Dim rng As Range
Randomize
For Each rng In Range("A1:C2").Cells
rng.Value = rng.Value * ((1 * Rnd) + 1)
Next rng
End Sub