Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall