Zufallszahlen: Ausgabe des Zahlenformates
16.01.2004 09:25:44
Abdi
habe folgende Routine:
Sub zufall()
Dim rng As Range, rngall As Range
Dim irandomize As Single
Dim rn As Single
Dim OG As Single
Dim UG As Single
Set rngall = Range("a17:j22")
Randomize
Range("a17:j26").ClearContents
OG = InputBox(prompt:="Obere Grenze")
UG = InputBox(prompt:="Untere Grenze")
For Each rng In rngall.Cells
rn = ((Rnd) * (OG - UG)) + UG
rng.Value = Format(rn, "00,00")
Next rng
End Sub
Funktioniert einwandfrei...nur lediglich die Ausgabe ist grundseätzlich mit 3 Dezimalstellen.
Wie schaff´ ich es, dass nur 2 Dezimalstellen angezeigt werden?
Luxus wäre natürlich, dass ich auswählen kann, ob ich 2 oder 3 Dezimalstellen brauche.
Danke für Eure Hilfe im Voraus
Anzeige