Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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