VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte mit Zufallszahl zwischen 1 und 2 multiplizieren

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

    


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