Gruppe
Allgemein
Bereich
Zufall
Thema
Werte mit Zufallszahl zwischen 1 und 2 multiplizieren
Problem
Wie kann ich die Werte eines ausgewählten Bereiches mit einer Zufallszahl in der Größe zwischen 1 und 2 multiplizieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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