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