Dezimale Zufallszahlen
26.02.2020 15:00:33
Thomas
ich habe folgenden Code in einer Userform:
With Cells(12, 2).Resize(CLng(TextBox9.Text), 1)
.FormulaR1C1 = "=RandBetween(" & CLng(TextBox1.Text) & "," & CLng(TextBox2.Text) & ")"
.Formula = .Value
End With
Dieser liefert mir nur Ganzzahlen.
Kann mir jemand den Code so umändern, dass auch dezimale Zufallszahlen generiert werden (Währung bspw. 1,55).
Vielen Dank und schöne Grüße
Thomas
Anzeige