Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte mit Zufallszahl zwischen 1 und 2 multiplizieren

Gruppe

Zufall

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