ich habe in einer Userform eine Textbox mit folgendem Code
With Cells(12, 2).Resize(CLng(TextBox9.Text), 1)
.FormulaR1C1 = "=RandBetween(" & CLng(TextBox1.Text) & "," & CLng(TextBox2.Text) & ")"
.Formula = .Value
End With
Die Userform übertägt den Wert nur ganzzahlig in die entsprechende Zelle. Welche Formatierung braucht es, dass der Wert mit zwei Kommstellen übertragen wird (Währung).Vielen Dank und viele Grüße
Thomas