VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zufallszahlen bis zum 4-fachen Wert generieren

Gruppe

Allgemein

Bereich

Zufall

Thema

Zufallszahlen bis zum 4-fachen Wert generieren

Problem

Wie kann ich in einem Tabellenblattbereich Zufallszahlen so generieren, dass maximal der vierfache Wert der jeweiligen Zelle erreicht werden kann?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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